#!perl -lpa
$_=eval'+$_--*(0 .$F[1]--)'x$_