-- What is the sum of the digits of the number 2^1000?
main = print $ sum $ map (read . (:[])) $ show $ 2^1000