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