while(@_<10){s;;<>;e;push @_,$1 if/(\d+)/}$_=join ' ',@_,$a++;
s;(\d+) (\d+);$a*=$1,$b+=$2;ge;print"$a, $b\n";
[download]