(%)=zipWith(++)
x a=p++s%a%s++p where p=a%s%a;s=map(map(\_->' '))a
main=mapM_ putStrLn$x$x$x$x["X"]