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 ->
""