push @baton, shift @baton;
print "$baton[0]\b";