@2=map!$_,@1=-1..1;$\+=!$h{$y+=$2[$i=ord()%3]*=-1,$x+=$e=$1[$i]}++,$e&&map(@$_[$i-1,$i-2]=@$_[$i-2,$i-1],1,2)+map$_=-$_,@1,@2for 0,<>=~/./g;print