| (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"))))
|