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 ()