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