(define $main
  (lambda [$argv]
    (do {[$v (rand 1 6)]
         [(write (show v))]
         [(write-char '\n')]})))