path: root/test/ack.t

fun main[n,m]
	print call ack[n,m]
end

fun ack[n,m]
	if n == 0
		@m + 1
	else
		if m == 0
			@call ack[n-1, 1]
		else
			@call ack[n-1, call ack[n, m-1]]
		end
	end
end