(format t(format()"~~{~A~A~@*~A~A~@*~A

~~}"" ~C | ~C | ~C ""
---+---+---
")(coerce"X        X   O    X   O   XX O O   XX O O X XX O O XOXX OXO XOX"'list))