sub equal {
   return 1 if @_ < 2;
   return 0 if $_[0] ne $_[1];
   shift;
   goto(&equal);
}