Count in French by xnor

g 80="4 20"
g n=show n
f n|n<17=[g n|n>0]|d<-mod n$10+div n 60*10=g(n-d):f d
main=mapM(putStrLn.unwords.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