First take at perfect number-finder in Haskell.

- searches from 1 to 10000 in approximately 45 seconds