gistfile1.txt

showInteger n str = divmod10 n \d r -> (ifnonzero d (showInteger d) id) ((:) ((+) 48 r) str);
divmod10 n = n (\f a b -> ifgt 9 b (f a (succ b)) (f (succ a) 0) ) (:) 0 0;

fizzbuzz n a b = ifgt n 100 endofoutput
    ((\s p q a' b' -> if (and p q)
    ((++) "FizzBuzz\n"          (s 0 0))
    (if p ((++) "Fizz\n"        (s 0 b'))
     (if q ((++) "Buzz\n"       (s a' 0))
      (showInteger n (cons '\n' (s a' b'))))))
          (fizzbuzz (succ n)) ((==) 2 a) ((==) 4 b) (succ a) (succ b));

main input = fizzbuzz 1 0 0;