map{@a=$"=', ';@a=/<|>/?@a[//]:/v/?map{$_-1,$_+1}@a:eval join$_&v1^'+',@a,y#/##for/./g;print"[@a] "}<>