sub equal {
   while (@_ >= 2) {
      return 0 if $_[0] ne $_[1];
      shift;
   }
   return 1;
}