/\(/?(++$a,++$A):
/\^/?($c+=$b,$b=$a,$a=0,$D+=$C,$C=$B,$B=0):
/\*/?($d+=$c,$c=0,$B+=$A,$A=0):
($e+=$d,$E+=$D)for<>=~/./g;
print$e+0,$",$E+0