#SRC: JCON

procedure main()
	write(&level);
	foo(3);
	write(&level);
	every bar(3)
	write(&level);
end

procedure foo(n)
	write(&level);
	if n ~= 0 then foo(n-1)
	write(&level);
end

procedure bar(n)
	write(&level);
	suspend 1 to n do write(&level)
	write(&level);
end