-- :load "c:\\HaskellProgs\\chap5_2.hs" factors n = [x | x <- [1 .. (n `div` 2)], n `mod` x == 0 ] perfects n = [ x | x <- [1..n], sum (factors x) == x]