(#)=shows m@main=do x<-readLn;putStrLn$x#" = 6 * "++div(x+1)6#" "++cycle" +-"!!x:" 1";m