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