testData/parser/r/WhileStatement.r (6 lines of code) (raw):

while(from!=0) { Sys.sleep(1) from <- from - 1 print(from) }