1:1-1:3   FUN   fun 
 1:5-1:10   ID   dec100 
 1:11-1:11   LBRACKET   ( 
 1:12-1:12   ID   p 
 1:13-1:13   COLON   : 
 1:14-1:16   INT   int 
 1:17-1:17   RBRACKET   ) 
 1:18-1:18   COLON   : 
 1:19-1:21   INT   int 
 1:23-1:23   EQUALS   = 
 2:5-2:9   WHILE   while 
 2:11-2:11   ID   p 
 2:13-2:13   GT   > 
 2:15-2:15   NUM   0 
 2:17-2:18   DO   do 
 3:9-3:9   ID   p 
 3:11-3:11   EQUALS   = 
 3:13-3:13   ID   p 
 3:15-3:15   MINUS   - 
 3:17-3:17   NUM   1 
 4:5-4:7   END   end 
 4:8-4:8   COMMA   , 
 5:5-5:7   LET   let 
 5:9-5:11   VAR   var 
 5:13-5:13   ID   a 
 5:15-5:15   COLON   : 
 5:17-5:19   INT   int 
 5:21-5:22   IN   in 
 6:9-6:9   ID   a 
 6:11-6:11   EQUALS   = 
 6:13-6:13   NUM   1 
 6:14-6:14   COMMA   , 
 7:9-7:13   WHILE   while 
 7:15-7:15   ID   a 
 7:17-7:17   LT   < 
 7:19-7:21   NUM   100 
 7:23-7:24   DO   do 
 8:13-8:13   ID   a 
 8:15-8:15   EQUALS   = 
 8:17-8:17   ID   a 
 8:19-8:19   PLUS   + 
 8:21-8:21   NUM   1 
 9:9-9:11   END   end 
 9:12-9:12   COMMA   , 
 10:9-10:14   ID   dec100 
 10:15-10:15   LBRACKET   ( 
 10:16-10:16   ID   a 
 10:17-10:17   RBRACKET   ) 
 11:5-11:7   END   end 
    EOF