zehnpaard

(menhir
  (modules parser))
  
(ocamllex lexer)

(executable
  (name ex))

namenu

let partition_by_identity = xs => {
  let rec impl = (xs, cur) => {
    switch (xs, cur) {
    | ([], _) => [cur]
    | ([x, ...xs], []) => impl(xs, [x])
    | ([x, ...xs], [y, ..._]) =>
      if (x == y) {
        impl(xs, [x, ...cur]);
      } else {
        [cur, ...impl(xs, [x])];