The progn function evaluates all of its arguments and returns the value of the last argument.
Syntax
(progn <expression>*)
Example
CLIPS> (progn (setgen 5) (gensym)) gen5 CLIPS>