import "Prelude" fib :: Integer -> Integer fib x = match x with v | v <= 2 -> 1 | True -> fib (v-1) + fib (v-2) main = fib 13 -- 233