4 lines
113 B
Text
4 lines
113 B
Text
|
|
(set 'msg (read-line (int (nth 2 (main-args)))))
|
|
(write-line (int (nth 3 (main-args))) (upper-case msg))
|
|
(exit)
|