RosettaCodeData/Task/Loops-Do-while/Racket/loops-do-while.rkt

#lang racket
(let loop ([n 0])
  (set! n (+ n 1))
  (displayln n)
  (unless (zero? (remainder n 6))
    (loop n)))