{-
https://projecteuler.net/problem=16

2^15 = 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^1000?
-}

module Main where

main :: IO ()
main = print ans

ans :: Integer
ans = sum $ map (\c -> read [c] :: Integer) $ show (2^1000)