f.scm

(dotimes [n 101]
  ((lambda args
     (newline)                           ; ~&, should be fresh-line
     (let/cc break
       (case (car args)                  ; ~[
         [(0)]                           ; ~;
         [(1) (display (cadr args))      ; ~A
              (if (zero? (caddr args)) (break))] ; ~v^, ~; 
         [(2)]                           ; ~;
         [(3) (display "Fi")]            ; Fi~;
         [(4)]                           ; ~;
         [(5) (display "Bu")]            ; Bu~:;
         [else (if (zero? (cadr args))   ; ~v^
                 (break))
               (display "FizzBu")])      ; FizzBu ~]
       (display "zz")))                  ; zz
   (gcd n 15)
   n
   0))