;;;; A dev build's registry names a String's block by its type: the one freed
;;;; is gone from the report at exit, and the ones kept — made by string-new, by
;;;; a prelude builder and by bytes->string — are listed under String.
(defn main [] i32
  (let [kept (string-new "kept")
        gone (string-new "gone")]
    (append kept " for good")
    (free gone)
    (println kept)
    ;; A builder's answer and a checked copy are Strings in the report too.
    (println (to-upper (bytes-view "loud")))
    (let [v (vec-new u8)]
      (push v 0x61)
      (println (bytes->string v))
      (free v)))
  0)