Cleanでfizzbuzz

なぜか思いついてやってみた. またも無意味にマイブームのfoldを使用.
Cleanの文字列はどうにかして欲しいなぁ.
他の人はどう折り合いを付けているんだろうか….*1

module fizzbuzz

import StdEnv

fb = foldr f ""
     where
        f y ys = (p y) +++. "\n" +++. ys
     
        p x | x rem 15==0 = "FizzBuzz"
     	    | x rem  5==0 = "Buzz"
     	    | x rem  3==0 = "Fizz"
     	                  = toString x

Start = fb [1..100]

*1:他にはCleanerが居ないというのはうそです！！！