(do((b(format()" X |   |   ~2@{
---+---+---
   |   |   ~}

"t))(s'(29 57 9 49 53 25))(c #\O(if(eq(setf(elt(princ b)(pop s))c)#\X)#\O #\X)))(/))