%-

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

(:def snd
  (:lambda xy (text, text)
    (:match xy 
      [(_, y) y])))

; TODO tydecl sex = Boy | Girl

; see https://github.com/vmchale/doggo-command-line/blob/master/src/main.rs
(:def greeter
  (:lambda dog (text, text)
    (:let
      [name ($fst dog)]
      [pronoun ($snd dog)]
        (:oneof
          (| "${name} is a heckin' fine floofer")
          (| "${name} is a good woofer")
          (| "${name} eats toilet paper sometimes but ${pronoun} tries.")))))

(:def main
  ($ greeter ("Maxine", "she")))