Project Euler Problem 062

import Data.List
cube :: [Integer]
cube = [x^(3::Integer)|x<-[1..]] 
eql :: (Show a, Show a1) => a -> a1 -> Bool
eql a b = sort(show a)==sort(show b)
s :: Integer
s = 102334556789
e :: Integer
e = 987655433201
cuber :: [Integer]
cuber = takeWhile(<=e) $ dropWhile(=a) cuber,b=b) cuber,c=c) cuber,d=d) cuber,ee