let seg_of_path path =
  let spl = Am_String.String.split_exact (( = ) '/') path in
  let rec inner spl =
    match spl with | [ "" ] -> spl | "" :: tl -> inner tl | _ -> spl
  in inner spl