let remove_n_first_lines n s =
  let rec iter m acc =
    if m = 0 then
      acc
    else
      let index = String.index_from s acc '\n' in
      iter (m-1) (index+1)
  in
  try
    let index = iter n 0 in
    String.sub s index ((String.length s) - index)
  with
    Not_found ->
      ""