<> <> <> <> <<>> DIRECTORY TamarinUtils; <<>> TamarinUtilsImpl: CEDAR PROGRAM IMPORTS EXPORTS TamarinUtils = BEGIN Fibonacci: PUBLIC PROC [inNum: NAT] RETURNS [fibNum: INT] = { SELECT inNum FROM 0 => RETURN[1]; 1 => RETURN[1]; 2 => RETURN[1]; ENDCASE => RETURN[Fibonacci[inNum-1] + Fibonacci[inNum-2]]; }; END.