#!perl -lpaF
$_=0;$_=$_*@F+shift@F while@F