import Data.Char ( digitToInt )

p16 = sum $ map digitToInt $ show (2^1000) 

— Me@2023-10-01 11:00:40 PM

.

.

2023.10.02 Monday (c) All rights reserved by ACHK