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"