#implementation of fib due to eric youngblut
#output should be 0112358132134


module main;


procedure fib(n: int): int;
begin
     if (n = 0 or n = 1) then
         return n;
     else
         return fib(n - 1) + fib(n - 2);
     end;
end fib;


var x: int;

begin
    for x := 0 to 9 do
        output := fib(x);
    end;
end main.