Project Euler Problem 056

import Data.Char
dsum :: [Char] -> Int
dsum str = sum $ map digitToInt str
ans1 :: Int
ans1 = maximum [dsum(show$ a^b) | a<-[1..99::Integer],b<-[1..99::Integer]]
--972
main :: IO ()
main = print ans1