First take at perfect number-finder in Haskell