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