Project Euler Problem 016

import Data.Char
ans1 :: Int
ans1 = sum $ map digitToInt $ show (2^(1000::Integer)::Integer)
--1366
main :: IO ()
main = print ans1