path: root/nfib.icl

module nfib

import StdEnv

nfib :: !Int -> Int
nfib n
	| n < 2
		= 1
		= nfib (n-2) + nfib (n-1) + 1

Start = nfib 43