-- Первый вариант
main = print $ fib' !! 10000000
       where fib' = 0 : 1 : zipWith (\x y -> mod (x + y) 10) fib' (tail fib')

-- Второй вариант
import Data.Matrix
main = print $ flip mod 10 $ getElem 1 2 $ (fromList 2 2 [1, 1, 1, 0]) ^ 10000000