$_+=$k*print$_,$/for((($_=<>)-1)%($k=/ /+$'))x9