(def striptags (s)
  (let intag nil
    (tostring
      (each c s
        (if (is c #\<) (assert intag)
            (is c #\>) (wipe intag)
            (no intag) (pr c))))))