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

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