7 main = do (arg:_) <- getArgs
8 mapM_ printTriple [ (i,fib i,mfib i) | i <- [10..read arg] ]
9 where printTriple (i,fi,mfi) = do print i
14 mfib :: Integer -> Integer
17 ufib :: Integer -> Integer
20 ufib n = mfib (n-1) + mfib (n-2)
22 fib :: Integer -> Integer
25 fib n = fib (n-1) + fib (n-2)