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]]