C  :n = 1
*InfiniteLoop
T  :#n
C  :n = n + 1
J  :*InfiniteLoop