haskell, euler #6: sum square difference