#!perl -l
$==pop;push@],($_)x($-++?$-<3?$%>1?$%:$_:$][$--1]:($%=$_))for(@ARGV)x$=;print@][0..$=-1]