Project Euler Problem 029

import Data.List
r :: [Integer]
r = [2..100]
ans1 :: Int
ans1 = length $ nub $ sort [x | a<-r,b<-r,x<-[a^b,b^a]]
--9183
main :: IO ()
main = print ans1