(defun states ()
  '(
    ((0 0 0 0 0 0 0) 
     (0 0 X 0 0 0 0) 
     (0 0 0 0 0 0 0) 
     (0 0 0 T 0 0 0)  
     (0 0 0 0 0 0 0))
    ((0 0 0 0 0 0 0) 
     (0 0 0 0 0 0 0) 
     (0 0 0 0 0 X 0) 
     (0 0 0 T 0 0 0)  
     (0 0 0 0 0 0 0))
    ((0 0 0 0 0 0 0) 
     (0 0 0 0 0 0 0) 
     (0 X 0 0 0 0 0) 
     (0 0 0 T 0 0 0)  
     (0 0 0 0 0 0 0))
    ((0 0 0 0 0 0 0)  
     (0 0 0 T 0 0 0) 
     (0 0 0 0 0 0 0) 
     (0 0 X 0 0 0 0) 
     (0 0 0 0 0 0 0))))
 
(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)
 

KGRlZnVuIHN0YXRlcyAoKQogICcoCiAgICAoKDAgMCAwIDAgMCAwIDApIAogICAgICgwIDAgWCAwIDAgMCAwKSAKICAgICAoMCAwIDAgMCAwIDAgMCkgCiAgICAgKDAgMCAwIFQgMCAwIDApICAKICAgICAoMCAwIDAgMCAwIDAgMCkpCiAgICAoKDAgMCAwIDAgMCAwIDApIAogICAgICgwIDAgMCAwIDAgMCAwKSAKICAgICAoMCAwIDAgMCAwIFggMCkgCiAgICAgKDAgMCAwIFQgMCAwIDApICAKICAgICAoMCAwIDAgMCAwIDAgMCkpCiAgICAoKDAgMCAwIDAgMCAwIDApIAogICAgICgwIDAgMCAwIDAgMCAwKSAKICAgICAoMCBYIDAgMCAwIDAgMCkgCiAgICAgKDAgMCAwIFQgMCAwIDApICAKICAgICAoMCAwIDAgMCAwIDAgMCkpCiAgICAoKDAgMCAwIDAgMCAwIDApICAKICAgICAoMCAwIDAgVCAwIDAgMCkgCiAgICAgKDAgMCAwIDAgMCAwIDApIAogICAgICgwIDAgWCAwIDAgMCAwKSAKICAgICAoMCAwIDAgMCAwIDAgMCkpKSkKCihkZWZ1biB0ZXN0LXByaW50ICgpCiAgKGZvcm1hdCBUICJ+JS0tLSBSZXN1bHQgLS0tIikKICAobWFwY2FyICMnKGxhbWJkYSh4KSAocHJpbnQtc3RhdGUgeCkpIChzdGF0ZXMpKSkKICAKKGRlZnVuIHByaW50LXN0YXRlICh4KQogIChmb3JtYXQgVCAifiUiKQogIChtYXBjYXIgKGxhbWJkYSAoeCkgKGZvcm1hdCBUICJ+QFR+QFR+QFR+QFR+QFQgfkEgfiUiIHgpKSB4KQogIChmb3JtYXQgTklMICIiKSkKICAKICA7O3Rlc3QgcHJpbnQKICAodGVzdC1wcmludCkKICA=