Функция вычитающая из пятерки три еденицы.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
{
setq a (
func (operand1 ...)
{
setq a operand1;
while (!= nil _args_)
{
setq a (- a (car _args_));
setq _args_ (cdr _args_);
};
return a;
}
);
a 5 1 1 1;
}