#!/usr/bin/perl -w


sub counter {
	my $count;
	
	$count = shift or $count = 0;
	
	return sub {
		$count++;
		return $count;
	}
}



my $x = counter();
my $y = counter();

print "x ist " . $x->() ."\n";
print "x ist " . $x->() ."\n";
print "x ist " . $x->() ."\n";
print "\n";

print "y ist " . $y->() ."\n";
print "y ist " . $y->() ."\n";
print "\n";

print "x ist " . $x->() ."\n";
print "x ist " . $x->() ."\n";
print "x ist " . $x->() ."\n";
print "\n";

print "y ist " . $y->() ."\n";
print "y ist " . $y->() ."\n";