(def space (body spacing) (+ (newstring (- spacing (len (tostring:disp body))) #\space) (tostring:disp body)))
-----