(define (loop i)
  (if (> i 10) 'done
      (begin
       (display i)
       (cond ((zero? (modulo i 5))
              (newline) (loop (+ 1 i)))
             (else (display ", ")
                   (loop (+ 1 i)))))))