#include "std.alpha"

function entry : string2integer
function fib : integer2integer

fib(i) := {

    if (i < 1) then {
        return 0;
    } else {
        i := i;
    }

    if (i < 2) then {
        return i;
    } else {
        i := i;
    }

    return fib(i-1) + fib(i-2);
}

entry (arg) := {
    [ integer: result; integer: input; integer: fibValue]

    result := printC('E');
    result := printC('n');
    result := printC('t');
    result := printC('e');
    result := printC('r');
    result := printC(' ');
    result := printC('N');
    result := printC('u');
    result := printC('m');
    result := printC('b');
    result := printC('e');
    result := printC('r');
    result := printC(':');
    result := printC(' ');

    input := inI(1);
    fibValue := fib(input);

    result := printI(fibValue);

    return 0;
}