<>;map$%+=$_,@_=glob<>;print"@{[map$%-$_*$#_,@_]}"