;; demo script: uppercase.lsp
;; this script is registered in the Tool menu of newlisp-edit.lsp

(print (upper-case (read-file (main-args 2))))

(exit)