let rec cut_list_at (n:int) l = match l with | [] -> [] | x::c -> if (n <= 0) then [] else x::(cut_list_at (n-1) c)