sub acker {
	my ($m, $n) = @_;
	return $n + 1 if $m ==0;
	return acker( $m-1, 1) if $n == 0;
	return acker ($m - 1, acker ($m, $n - 1));
}