let div, (tms, conv) = match div with
| None -> None, list_cut (List.length nums, all_tms)
| Some _ -> Some (List.hd all_tms), list_cut (List.length nums, List.tl all_tms) in
let div, (tms, conv) = match div with
| None -> None, list_cut (List.length nums, all_tms)
| Some _ -> Some (List.hd all_tms), list_cut (List.length nums, List.tl all_tms) in