Find Lychrel Numbers under 10,000 -- blatantly stolen from several samples

lychrel.hs

reverseNum :: (Integral a) => a -> a
reverseNum 0 = 0
reverseNum x = truncate 10 ^ (truncate (logBase 10.0 (fromIntegral x))) * (x `mod` 10) + reverseNum (x `quot` 10)

palindrome :: (Integral a) => a -> Bool
palindrome x = reverseNum x == x

lychrel :: (Integral a) => a -> a -> Bool
lychrel _ 100 = True
lychrel x y = if palindrome lych then False else lychrel lych (y + 1)
	where lych = x + (reverseNum x)

lychrel' :: (Integral a) => a -> Bool
lychrel' x = lychrel x 0

challenge2 = length (filter lychrel' [1..10000])

main :: IO ()
main = do
	putStr "Lychrel Numbers < 10,000 = " ; print challenge2

Sweet!!!!