print"@{[map{splice@a,($i+=~-$')%=@a,1}@a=/ /..$`]}
"for<>