%-

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

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

(:def main
  ($ fst dog))