let concat lst_path1 lst_path2 = match lst_path2 with CurrentDir Short :: tl_path2 -> lst_path1 @ tl_path2 | _ -> lst_path1 @ lst_path2