token yydescr yycat outtok yylval let RESERVED ID ID 275 0 ! DEFINED OPR OPR 292 52 == RESERVED OPR OPR 288 0 func RESERVED ID ID 269 0 [ [ SEP 91 0 n DEFINED ID ID 291 53 : RESERVED OPR OPR 290 0 val RESERVED ID ID 284 0 Short DEFINED ID ID 291 39 ] ] SEP 93 0 { { SEP 123 0 if RESERVED ID ID 272 0 n DEFINED ID ID 291 53 > DEFINED OPR OPR 292 12 0 0 NUM 295 0 ==> RESERVED OPR OPR 287 0 Long DEFINED ID ID 291 54 $ $ SEP 36 0 In DEFINED ID ID 291 34 [ [ SEP 91 0 n DEFINED ID ID 291 53 ] ] SEP 93 0 * DEFINED OPR OPR 292 15 ( ( SEP 40 0 ( ( SEP 40 0 n DEFINED ID ID 291 53 - DEFINED OPR OPR 292 14 1 1 NUM 295 1 ) ) SEP 41 0 ! DEFINED OPR OPR 292 52 ) ) SEP 41 0 # # SEP 35 0 n DEFINED ID ID 291 53 = DEFINED OPR OPR 292 55 0 0 NUM 295 0 ==> RESERVED OPR OPR 287 0 Long DEFINED ID ID 291 54 $ $ SEP 36 0 1 1 NUM 295 1 fi RESERVED ID ID 267 0 } } SEP 125 0 ; ; SEP 59 0 x DEFINED ID ID 291 56 == RESERVED OPR OPR 288 0 Short DEFINED ID ID 291 39 $ $ SEP 36 0 New DEFINED ID ID 291 23 [ [ SEP 91 0 ] ] SEP 93 0 ; ; SEP 59 0 in RESERVED ID ID 273 0 do RESERVED ID ID 261 0 ( ( SEP 40 0 put DEFINED ID ID 291 42 [ [ SEP 91 0 "Factorial of?" Dbl Quote Dbl Quote 294 Factorial of? ] ] SEP 93 0 ; ; SEP 59 0 x DEFINED ID ID 291 56 := DEFINED OPR OPR 292 4 get DEFINED ID ID 291 57 [ [ SEP 91 0 FS DEFINED ID ID 291 58 ] ] SEP 93 0 ) ) SEP 41 0 >= DEFINED OPR OPR 292 59 0 0 NUM 295 0 ==> RESERVED OPR OPR 287 0 put DEFINED ID ID 291 42 [ [ SEP 91 0 x DEFINED ID ID 291 56 ! DEFINED OPR OPR 292 52 ] ] SEP 93 0 ; ; SEP 59 0 put DEFINED ID ID 291 42 [ [ SEP 91 0 " " Dbl Quote Dbl Quote 294 ] ] SEP 93 0 od RESERVED ID ID 277 0 ni RESERVED ID ID 276 0 EOF EOF -1 0