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