Solves Amicable pairs problem in haskell