#!perl -p0
sub a{@$x||map{push@s,$x,$_,$x,-$_}@$x=index($_,$")-1,1}$x=index$_,".";for(a;$d=pop@s,$x=pop@s;$r-35||a){$x+=$d,$r=46while${*r=\vec$_,$x+$d,8}<33}