(defun factorial (n) (return (if (< n 2) 1 (factorial (-1 n)))))
<!DOCTYPE xmllisp> <program> <function name="factorial"> <parameters>n</parameters> <return> <if><condition>n < 2</condition> <iftrue>1</iftrue> <iffalse> <functionCall name="factorial">n - 1</functionCall> </iffalse> </if> </return> </function> </program>