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
