(define $main (lambda [$: $argv] (do {[$: (write-string : "input char : ")] [$: (flush :)] [[$: $c] (read-char :)] [$: (write-char : '\n')] [$: (write-string : "output : ")] [$: (write-char : c)] [$: (write-char : '\n')]} :)))