x = 1;
Monitor[While[True, x++], x]