while(<>){$s=1;foreach$i(split/,/){$s*=$i;}print$s,"\n";}