にせLISP

すみませんあとでちゃんと説明かきます

(defun (if2 true (pause a:*)) a)
(defun (if2 false (pause *)) ())
(defun (if cond:* a:*) (if2 cond:* (pause a)) )

(defun a:(pause *) a)

(defun (prog a:*) a)
(defun (prog (a:* b:*)) (a (pause b)) )
(defun (prog (a:* b:*)) (a (pause b)) )

(defun (evalall a) (if (caneval a) a (evalend a)) )

(defun (n:(neko *) i:(inu *))
(print (n name) likes (i name))
)

(defun *1

tama likes pochi

( (get nekoshop cocoa) (inu burudog))

cocoa likes burudog

*1:neko n:*) name) n ) (defun ((inu n:*) name) n ) ( (neko tama) (inu pochi