Why is it so slow to solve "10^(10^10)" in Haskell?