; released to the public domain

  ; (macmap list tostring x y z)
  ; --> (list (tostring x) (tostring y) (tostring z))
  
  (mac macmap (combiner oneach . body)
    `(,combiner ,@(map (fn (e) `(,oneach ,e)) body)))
  
  (mac w/bars body
    `(apply pr
            (intersperse bar* (rem [is _ ""] (macmap list tostring ,@body)))))