Add an ocaml implementation of using fold to collapse a row/column