let get_n_first_ele max l =
let rec iter n l =
if n < max then
match l with
[] ->
([], [])
| h :: q ->
let (l1, l2) = iter (n+1) q in
(h :: l1, l2)
else
([], l)
in
iter 0 l