% $Id: fibo.cim,v 1.2 2002/05/16 15:28:00 dada Exp $
external class UNIX;
begin

    integer procedure fib(n); integer n;
    begin
        if n < 2 then fib := 1
        else fib := fib(n-2) + fib(n-1);
    end;

    integer i;
    text t;
    t :- Blanks(80);
    t := Arg(1);
    comment OutInt(Argc, 4);
    comment OutText(Arg(1));    
    i := t.getInt;
    if i < 1 then i := 1;
    OutInt(fib(i),0);
    OutImage;
end