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)