>    restart: #Fatorial

>    Fat:=proc(n)

>    if n=0 then 1 else n*Fat(n-1) fi

>    end:

>    Fat(0);

1

>    Fat(1);

1

>    Fat(2);

2

>    Fat(5);

120

>    Fat(50);

30414093201713378043612608166064768844377641568960512000000000000

>   

>    restart: #Fibonacci

>    Fib:=proc(k)

>    if k<2 then k else Fib(k-2)+Fib(k-1) fi

>    end:

>    seq(Fib(i), i=0..15);

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610

>    Fib(30);

832040

>   

>    restart: #Máximo

>    A:=[1,9,3,8,5,10,6]:

>    Max:=proc(i)

>    if i=1 then A[1] else m:= Max(i-1):if m<A[i]then A[i] else m fi fi

>    end:

Warning, `m` is implicitly declared local to procedure `Max`

>    Max(1);

1

>    Max(4);

9

>    seq(Max(i), i=1..nops(A));

1, 9, 9, 9, 9, 10, 10

>