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}}