my $x = not $x;
	my $y = $y-1;