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