(def underlink (text (o dest text))
  (tag (a href dest) (tag u (pr text))))

From html.arc ©