(defun tabA()
  '((X 0 0 0 0 0 0) 
    (0 0 0 X 0 0 0) 
    (0 0 0 0 0 0 0) 
    (0 0 0 T 0 0 0)  
    (0 0 0 0 0 0 0)))
 
(defun tabB()
  '((0 0 0 0 X 0 0) 
    (0 0 0 0 0 0 0) 
    (0 T 0 0 0 0 0) 
    (0 0 0 X 0 0 0)  
    (0 0 0 0 0 0 0)))
 
(defun tabC()
  '((0 0 0 T 0 0 0) 
    (0 0 0 0 0 0 0) 
    (0 0 X 0 0 X 0) 
    (0 0 0 0 0 0 0)  
    (0 0 0 0 0 0 0)))
 
(defun states ()
  (list (tabA) (tabB) (tabC)))
 
(defun test-print ()
  (format T "~%--- Result ---")
  (mapcar #'(lambda(x) (print-state x)) (states)))
 
(defun print-state (x)
  (format T "~%")
  (mapcar (lambda (x) (format T "~@T~@T~@T~@T~@T ~A ~%" x)) x)
  (format NIL ""))
 
  ;;test print
  (test-print)
 

KGRlZnVuIHRhYkEoKQogICcoKFggMCAwIDAgMCAwIDApIAogICAgKDAgMCAwIFggMCAwIDApIAogICAgKDAgMCAwIDAgMCAwIDApIAogICAgKDAgMCAwIFQgMCAwIDApICAKICAgICgwIDAgMCAwIDAgMCAwKSkpCgooZGVmdW4gdGFiQigpCiAgJygoMCAwIDAgMCBYIDAgMCkgCiAgICAoMCAwIDAgMCAwIDAgMCkgCiAgICAoMCBUIDAgMCAwIDAgMCkgCiAgICAoMCAwIDAgWCAwIDAgMCkgIAogICAgKDAgMCAwIDAgMCAwIDApKSkKCihkZWZ1biB0YWJDKCkKICAnKCgwIDAgMCBUIDAgMCAwKSAKICAgICgwIDAgMCAwIDAgMCAwKSAKICAgICgwIDAgWCAwIDAgWCAwKSAKICAgICgwIDAgMCAwIDAgMCAwKSAgCiAgICAoMCAwIDAgMCAwIDAgMCkpKQoKKGRlZnVuIHN0YXRlcyAoKQogIChsaXN0ICh0YWJBKSAodGFiQikgKHRhYkMpKSkKCihkZWZ1biB0ZXN0LXByaW50ICgpCiAgKGZvcm1hdCBUICJ+JS0tLSBSZXN1bHQgLS0tIikKICAobWFwY2FyICMnKGxhbWJkYSh4KSAocHJpbnQtc3RhdGUgeCkpIChzdGF0ZXMpKSkKICAKKGRlZnVuIHByaW50LXN0YXRlICh4KQogIChmb3JtYXQgVCAifiUiKQogIChtYXBjYXIgKGxhbWJkYSAoeCkgKGZvcm1hdCBUICJ+QFR+QFR+QFR+QFR+QFQgfkEgfiUiIHgpKSB4KQogIChmb3JtYXQgTklMICIiKSkKICAKICA7O3Rlc3QgcHJpbnQKICAodGVzdC1wcmludCkKICA=