f 0=0 f 1=1 f n=f(n-2)+f(n-1) main=mapM putStrLn$[take(f n)(['1'..'9']++['A'..])|n<-[1..9]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page