V(qw/74 401 211 79/);
sub V{while(@_){
$v**=$V?$#_:$V;
print(
    map{
        $V<$v?
            chr(shift):
                chr(reverse(pop))}$_)
        ,$V+=$#_%2!=1?1:0}}


##</code><code>##




V(qw/74 401 211 79/);sub V{while(@_){$v**=$V?$#_:$V;
print(map{$V<$v?chr(shift):chr(reverse(pop))}$_),$V+=$#_%2!=1?1:0}}