let get_root =
  let sep = Str.regexp_string Filename.dir_sep in
  fun () ->
    let cwd = Sys.getcwd () in
    Str.sub cwd 0 (Str.search_forward sep cwd 0 + 1)