File: pipe-child.lsp

package info (click to toggle)

newlisp 10.7.5-3

file content (4 lines) | stat: -rw-r--r-- 113 bytes


(set 'msg (read-line (int (nth 2 (main-args)))))
(write-line (int (nth 3 (main-args))) (upper-case msg))
(exit)