Double factorial

[Helge Gabert]

No error checking, but something along these lines

#cas
DFA(n):=
BEGIN
IF odd(n) THEN
product(n,n,1,n,2);
ELSE
product(n,n,2,n,2);
END;
END;
#end

Is this what you are asking (simple program)?