A familiar face by rolf

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