Accepted
[1 of 1] Compiling Main ( foo.hs, /tmp/Main.o ) Linking code ...
正在同步测试数据，请稍后 [Hydro](https://hydro.ac)提供评测服务
代码
module Main where
import Data.Char
main = print . count . show . calc . words =<< getLine
where
calc :: [String] -> Integer
calc [a, b] = (read a) ^ (read b)
count :: String -> Int
count = sum . map orz
orz :: Char -> Int
orz ch = ord ch - 48
