import Data.Char (digitToInt)

p16 :: Int
p16 = sum (map digitToInt (show (2^1000)))

main = putStrLn $ "Solution: " ++ show p16