f=mapM$max" X ".(:" X")
main=mapM(putStrLn.map minimum.f)$f"XXXX"