resolve(Path) ->
    filename:join(resolve(filename:split(Path), [])).

resolve([], Acc) ->
    lists:reverse(Acc);
resolve([".." | Rest], [_ | Acc]) ->
    resolve(Rest, Acc);
resolve([".." | Rest], []) ->
    resolve(Rest, []);
resolve([This | Rest], Acc) ->
    resolve(Rest, [This | Acc]).