sub SHIFT {
  my $self = shift;
  scalar $self->SPLICE(0, 1);
}