{
`a standard factorial, defined recursively
fac(n)::
{
if (n > 1,
n*fac(n-1),
1)
};
`a standard fibonacci, defined recursively
fib(n)::
{
if (n > 1,
fib(n-1)+fib(n-2),
1)
};
display("fac(10)",eoln,"fib(18)")
}