Project Euler Problem 048

ans1 = reverse $ take 10 $ reverse $ show $ sum [i^i|i<-[1..1000]]
--"9110846700"
main = print ans1