Problem 1 of 3, embed.ly challenge

rN.hs

import Data.Char

--creates list containing each digit from a number 
intToDigList :: Integral a => a -> [Int]
intToDigList = map digitToInt . show;

--computes R(n)
rN n = sum (intToDigList( (product [1..n])))

--returns the first number,'n', for which R(n) equals 8001
findN n = 
	if rN n == 8001
		then n
		else findN(n+1)

main = print (findN 0)