let debug_print_component lst=
    let debug_print_one_component elem =
      match elem with
        Root s      -> "Root : "^s
      | Component s -> "Component : "^s
      | ParentDir   -> "ParenDir"
      | CurrentDir Long  -> "CurrentDir Long"
      | CurrentDir Short -> "CurrentDir Short"
    in
    List.iter print_string (List.map (fun x -> (debug_print_one_component x)^" ;") lst);
    print_newline ()