proc printf(formatstr: cstring){.header: "", varargs.} proc scanf(formatstr: cstring){.header: "", varargs.} var s : array[20,char] for i in 0..999: printf("%03d\n",i) scanf("%s\n",addr s) if s[0] == 'u': break