an exercise with functional DDD and OCaml - View it on GitHub