(DEFINE (XLINE (LAMBDA(Y)
   (COND ((OR (EQUAL Y 0) (EQUAL Y 9) (EQUAL Y 19)) (PRIN1 '+--------+--------+))
         (T (PROGN (HTAB 0)
                   (PRIN1 '!)
                   (HTAB 11)
                   (PRIN1 '!)
                   (HTAB 20)
                   (PRIN1 '!))))

    (PRIN1 (CHR 13))
   )))

(DEFINE (DRAW (LAMBDA (Y)
  (COND
   ((GREATER 20 Y)
    (PROGN
      (XLINE Y)
      (SETQ Y (ADD Y 1))
      (DRAW Y)
      ))
   (T (PRIN1 (CHR 10)))))))

(DEFINE (START (FLAMBDA(Z)
  (HTAB 10)
  (PRINT '\O/)
  (DRAW 0))))

(START)
