EXPR(1666 1374 3584) DEFINE(( (PASCAL(LAMBDA(N)(PROG(X R LINE Y Z)(SETQ X 0) OL(SETQ R 1)((LESSP N X)(RETURN NIL)) (SETQ LINE(LIST 1))(SETQ Z X) IL((LESSP X R)(GO BX)) (SETQ Y(TIMES(CAR LINE)Z)) (SETQ Z(MINUS Z 1))(ZEXPR 2054 Y R) (SETQ LINE(CONS(EXPR 3172 15 -1)LINE)) (SETQ R(PLUS R 1))(GO IL) BX(PRINT LINE)(TERPRI)(SETQ X(PLUS X 1))(GO OL) ))) )) EXPR(3202 2536 1037) ICLOSE NIL 2