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