let rec list_chop n = function
    [] -> []
  | h :: q ->
      if n > 0 then
        h :: (list_chop (n-1) q)
      else
        []