(loop[i -1](recur((if(=(read)'=)(do(prn i)-)+)i 1)))