factorial
function
2
n
missing
0

{
4

comment.expression
2

comment
1

character
5
#
# factorial(): Simply returns n! as long as n is not larger than 12.
#
# (c)1997 Michael Boland
#

if
2

(
2

name
1
(

call
3

name
1
>

name
1
n

numeric
1
12

call
2

name
1
stop
message
character
1
factorial(n) requires an integer less than 13.

<-
2

name
1
temp

numeric
1
1

if
2

call
3

name
1
!=

name
1
n

numeric
1
0

{
1

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
n

<-
2

name
1
temp

call
3

name
1
*

name
1
temp

name
1
i

return
1

name
1
temp