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