b%c=['/'..]!!length[b..c] m@main=do[a,b]<-getLine;putStrLn$unwords[[f%a,g%b]|(f,g)<-zip"1/../122""../1221/",f%a>'`',f%a<'i',g%b>'0',g%b<'9'];m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page