(let
  [t (templates/from-parts {strings [hello- ""] values [Ada]})]
  [(template? .t) (string? .t) (template? hello-Ada) (templates/parts .t)
   (str .t) (strings/starts-with? .t hello) (= .t hello-Ada) (count .t)
   (strings/join [.t !] "") (compare .t hello-Ada) (get {hello-Ada 42} .t)])
(templates/render
  (templates/from-parts {strings [hello- ""] values ["<Ada>"]})
  {escape (strings/escape html-text)})
(let [name Ada] ~"hello-,.name")
~"outer-,~"inner-,Ada""