Generation of accessor and iteration functions for OCaml variant types - View it on GitHub