import文のほうが本文より行数が多いなんて。 

import Data.Char
import Data.List
import Data.Ord
p056 =maximumBy (comparing fst) [(sum.map digitToInt.show$a^b,(a,b))|a<-[1..99],b<-[1..99]]