#! perl -slw
use strict;

my( $count1, $count2 );

sub a1 {
	b1( $_ [ 1 ] );
	goto &a2;
}

sub a2 {
	$count1++;
	$_[ 0 ]-- and goto &b2;
}


sub b1 {
	$_[ 0 ]-- and goto &b2;
}

sub b2 {
	$count2++;
	goto &a2;
}

my( $n1, $n2 ) = ( 100, 50 );
a1( $n1, $n2 );

print "c1: $count1; c2: $count2";

__END__
[15:37:55.16] P:\test>mutrec
c1: 151; c2: 150