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