Euclids orchard by henkma

main=do x<-readLn;mapM(\b->putStrLn[" t"!!div 1(gcd a b)|a<-[1..x]])[1..x]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page