$"=', ';map{@a=0;/v/?@a=map{$_-1,$_+1}@a:/</?shift@a:/>/?pop@a:(@a=eval join+($%=/\//)?'*':'+ ',@a,$%)for/./g;print"[@a]
"}<>