egison-2.1.11: sample/io/char-test.egi

(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')]}
        :)))