%-

(:def fst
  (:lambda xy (text, text)
    (:match xy (x, _)
      x)))

(:def dog
  (:oneof
    (| ("he", "boy"))
    (| ("she", "girl"))))

(:def main
  ($ fst dog))