(defun indent (level)
  (coerce (make-array (* 2 level) :initial-element #\ ) 'string))

;(deftest test-indent ()
;  (check
;    (samep (indent 2) "    ")))