let get_nth_line n s =
  try
    let l = Str.split (Str.regexp "\n") s in
    List.nth l n
  with _ ->
    ""