prog;

begin
	var i : int

	while i < 15
	do
	  write i;
	  i := i + 1;
	end while;

	i := 0;
	while i < 0
	do
	  write i;
	  i := i + 1;
	end while;

	i := 16;
	while i < 15
	do
	  write i;
	  i := i + 1;
	end while;
end;

end prog