#!/usr/bin/perl

my $i =0;
while($i<=1000000){
  if($i == 800){
    exit 2;	
  }
  $i++;
}

##</code><code>##

#!/usr/bin/perl

my $i =0;
while($i<=1000000){
  if($i == 900){
    exit 1;	
  }
  $i++;
}