orPattern.pretty

%-

tydecl case = Nominative | Accusative | Dative | Genitive

tydecl gender = Masculine | Feminine | Neuter

(:def decline
  (:lambda c case
    (:match c
      [(Nominative|Accusative) "hit"]
      [Dative "his"]
      [Genitive "him"])))

(:def main
  ($ decline Accusative))