(de cross  (One Two Three Four Five Six Seven Eight)
   (println "1" (car One))
   (println "2" (car Two))
   (println "3" (car Three))
   (println "4" (car Four))
   (println "5" (car Five))
   (println "6" (car Six))
   (println "7" (car Seven))
   (println "8" (car Eight))
   (case (key)
      ("1" (eval (cadr One)))
      ("2" (eval (cadr Two)))
      ("3" (eval (cadr Three)))
      ("4" (eval (cadr Four)))
      ("5" (eval (cadr Five)))
      ("6" (eval (cadr Six)))
      ("7" (eval (cadr Seven)))
      ("8" (eval (cadr Eight)))
      ("q" (quit))
      (T "weird")))


(cross
   (list "AI1" "ai1-code")
   (list "5 a-Z" '(cross
         (list "a" "a")
         (list "b" "b")
         (list "c" "c")
         (list "d" "d")
         (list "e" "e")
         (list "f" "f")
         (list "g" "g")
         (list "h" "h"))))
