Count in French by rak1507

f x|x<17||x>99=[x|x>0]|x<80=x-a:f a|1<2=4:20:f a where a=mod x$x`div`70*10+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).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page