<>;@a=reverse sort<>=~/\S/g; pop@a while$a[-1]eq'+'&&++$p||$a[-1]eq'-'&&++$m; @d=@b=@a;$"=''; $y-=pop@a for 1..$m; $y+=pop@a for 1..$p; $z+=pop@b for 0..$p; $z-=pop@b for 2..$m; $c[$i++%($p+1)]=~s/^/$_/ for@d; $x+=$_ for@c; print$y+"@a"," ",$m?$z-"@b":$x