f x|x<1=[]|x`mod`100<17=[x]|x>79=[4,20]++f(x-80)|x>59=[60]++f(x-60)|1>0=[x-x`mod`10]++f(x`mod`10) main=mapM(putStrLn.unwords.map show.f)[1..100]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page