sub{my%r;for(split$",shift){$h=$p=$i=0;while(/./g){if($p){$h+=('/'eq$&)*2-1if$&eq$p}else{$h='/'eq$&}$p=$&;$r{$i++,$h}=1}}keys%r}