drawing

gistfile1.lisp

; http://stackoverflow.com/questions/12345647/rewrite-this-script-by-designing-an-intepreter-in-racket

(defmacro verti (n &body body)
  `(progn
     (loop repeat ,n
           do ,@body
           (terpri))))

(defun hori (n s)
  (loop repeat n do (princ s)))

(defun test ()
  (verti 3 (hori 9 "X"))
  (verti 6
    (hori 3 " ")
    (hori 3 "X")
    (hori 3 " "))
  (verti 3 (hori 9 "X")))