l=[2..100] main=putStr$'1':do x<-l;'\n':do(0,a,b)<-zip3[mod x n|n<-l,mod(2^n-2)n<1](l>>"DFBMPQ")$l>>"oiuea";a:b:"zz"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page