(print~-$`%($k=$'+1)+$k*$_,$/),<>for<>!~$"..4