(define $main
  (lambda [$:]
    (do {[$: (print : "input char : ")]
         [[$: $c] (read-char :)]
         [$: (print : "output : ")]
         [$: (write-char : c)]
         [$: (write-char : '\n')]
         [$: (print : "input number :")]
         [[$: $e] (read :)]
         [$: (print : "output : ")]
         [$: (write : e)]
         [$: (write-char : '\n')]}
      :)))

(define $main
  (lambda [$:]
    (do {[$: (memorize : 10 20)]
         [$: (memorize : [0 20] 30)]
         [$: (memorize : <test 0 20> 40)]
         [$: (memorize : {0 20 10} 40)]
         [$: (memorize : "abc" 40)]
         [$: (memorize : [0 20] 60)]
         [[$: $n] (remember : {0 20 10})]
         [$: (write : n)]
         [$: (write-char : '\n')]}
      :)))