#!/usr/bin/perl
$tab=chr(9);

sub fu{
  $q=int($_[0]);
  #  if ($q>80) {$q=80};
    return 'ф'.'у'x$q;
    }
    
    sub fu_result{
      return int($_[0]).$tab.fu($_[0]);
      }
      
      
      sub goo(){
        $aa='lynx -dump http://www.google.com/search?q='.$fuu.' | grep "Results 1"';
	#print $aa;
	  $t1=`$aa`;
	  # print "*".$t1."*\n";
	    $yy=",";
	      $xx="";
	        $t1 =~ s/\Q$yy\E/$xx/g;
		# print "*".$t1."*\n";
		  $t1 =~/(\d+)\sfor/;
		    $t1=$1;
		    # print "*".$t1."*\n";
		    
		    
		    #  $t1=$1;
		    #  $t1=$1;
		    #print "*".$t1."*";
		    
		    return $t1;
		    }
		    
		    print "Воняет?";
		    @date=`date`;
		    print @date."\n";
		    
		    for($x=1; $x<64; $x++) {
		    
		    $fuu=fu($x);
		    #print $fuu;
		    print fu_result($x)."\t";
		    print goo."\n";
		    
		    }
		    
		    
		    
		    
		    
		    
		    
		    1