let rec deoptionalise = function
  | Some x :: xs -> x :: deoptionalise xs
  | None :: xs -> deoptionalise xs
  | [] -> []