Euler Project: Problem 16

2¹⁵ = 32768 and the sum of its digits is 3 + 2 + 7 + 6 + 8 = 26.

What is the sum of the digits of the number 2¹⁰⁰⁰?

Prelude Data.List.Split> sum $ map (\x -> read x :: Int) $ chunksOf 1 $ show $ 2^1000
1366