p021 in haskell, amicable numbers