Lain FizzBuzz

(letrec-syntax ((three?
                 (syntax-rules ()
                   ((_ ks kf) ks)
                   ((_ ks kf a b c . r)
                    (three? ks kf . r))
                   ((_ ks kf . ?) kf)))
                (five?
                 (syntax-rules ()
                   ((_ ks kf) ks)
                   ((_ ks kf a b c d e . r)
                    (five? ks kf . r))
                   ((_ ks kf . ?) kf)))
                (fizz-buzz
                 (syntax-rules ()
                   ((_ n) 'done)
                   ((_ n l . lr)
                    (begin (fizz-buzz (- n 1) . lr)
                           (five? (three? (display "FizzBuzz")
                                          (display "Buzz")
                                          l . lr)
                                  (three? (display "Fizz")
                                          (display n)
                                          l . lr)
                                  l . lr)
                           (newline))))))
  (fizz-buzz 100
                          l____,mmmmmm,___l
                  l,---@@@@@@@@@@@@@@@@@@@@@@@@---__l
                l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
              l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
            l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
           l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
         l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
        l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
      l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
     l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
    l/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l
    l@@@@@@@@@@@@@@@@@/@@@@A@@@l`'ll@@@@@ll@@AA@@@@@@@@@@@@@@l
    l@@@@@@@@@@@@@@@@ll@@@ll@@rE  DD A@@@@li@@li@@@@@@@@@@@@@l
    l@@@@@@@@@@@@@@@l:l@@@l ll l  l: :l@@@lk@@l@@l@l@@@@@@@l
    l@@@@@@@@@@@@ll@l:l/:Al ll (  l:::l Y l l )l/A@l ln@@@@@l
    l@@@@@@@@@@@ll@@l: ::___Al_l  l::: ::Al ll__::A/ l@@@@@@l
     l@@@@@@@@@@@l@ l-==^======^= / :::  :--l/=====--l@@@@@@lA
     l@@@@@@@@@@/ @@l: '____:,             :/ ____ ':^l@@@@@l
     l@@@@@@@@@@l /^' //:: AA::              //::A'k :l@@@@l:
     l@@@@@@@@@@l::: ((::o:) )::            l(:o::) >:lAA@@l
     l@@@@@@@@@@l::   AA::/_/:`              AA::/_/ :l@AAkl
     l@@@@@@@@@@@l:                                  :l@//kl
      d@@@@@@AlAl:                                  :ll/@@l
       l@@@@/l:Al::                   ,             ,:l@@@@l
         :l@@  : `                   :,            :ll@@@@l
        l@@l@@@ l:                    ':,           :ll@@@l
        llAl@@@@l:                   , :'           :ll@@@l
        ll@@@@@@l:                                  :ll@@@l
        ll@@@@@@',                   _            ,:/nl@@@l
        '<@@@@@@@@k                 (_)          :/@@l@@@l
          l@@@@@@@@l                            :/@@@l@@@l
           l@@@l@@@@@b                        :/@@@@@l@@@l
            d@/l@@@@@l:b                     :/@@@@@ll@@@l
                 l@@@l`  b                 :/@@@@@@lll@@@l
                  A@-l     `    ,,       :/:l@@4@f`  l@@@l))
;;              ,-':::l          %%--___:/:::l/_      l@@l
;;           ,-'::::::l          ':::::::::::l::'--,  l@@l
;;       ,-':::::A:::l            ':::::::::l::::::A l@@l
;;       l::,:::,,A:/:             `::::::::l::/::::ll@@l
;;       l:LAI:NLAIN  `              `:::::::l/::::::l@@l
;;      lLAINLAINLAINLA                `:::::/:::::::/@@l
;;    lLAINLAINLAINLAINLA                `::/::::::::l@@:'-A
;;  /INLAINLAINLAINLAINLAIA                /:NLA:::::l@l::::%-I
;;/NLAINLAINLAINLAINLAINLAINA             /LAINLAIN::l@l:::LAIN%-L
;;/AINLAINLAINLAINLAINLAINLAINLA