Poezie in LISP

(defun c:o_poezie ()
(setvar x "ca nu se stie")
(command "style" "Arial")
(setq vers "Fara" =)

(setq index "Prima strofa")
;;Ce deja e-o catastrofa
(defun strofe (vers cu_rima)
(setq tip "E monorima"))

(while strofe (command "text")
(setq spatiu_gol (entnext))
(if (= esti "topograf")
(repeat 1 paragraf))

(setq rand (entget (entlast)))
(cond ((vers naspa) ('erase "last"))
((= nil (entsel sfarsit))
(princ "\nMai baga un repeat!")))

(if (<= 3 randuri)
(alert "Ma cam pui pe ganduri!")
(setq randuri 20))
(princ "Ia vezi, poti sa ma-ntreci?")