import Data.Char (digitToInt)

-- 计算 b^n 的各位数字之和
powerDigitSum :: Integer -> Integer -> Integer
powerDigitSum b n = sum . map digitToInt . show $ b ^ n

-- 示例使用
main :: IO ()
main = do
    -- 测试用例
    print $ powerDigitSum 2 15     -- 32768 → 3+2+7+6+8 = 26
    print $ powerDigitSum 10 100   -- 1后跟100个0 → 1
    print $ powerDigitSum 3 3      -- 27 → 2+7 = 9
    print $ powerDigitSum 2 1000