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