; this should be one regexp

(def parafy (str)
  (let ink nil
    (tostring
      (each c str
        (pr c)
        (unless (whitec c) (assert ink))
        (when (is c #\newline)
          (unless ink (pr "
"))
          (wipe ink))))))

From html.arc ©