(:include tuple)

%-

; tydecl sex = Boy | Girl

; see https://github.com/vmchale/doggo-command-line/blob/master/src/main.rs
(:def greeter
  (:lambda dog (text, text)
    (:match dog
      (name, pronoun)
        (: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")))