Haskell #3: Include squares in list of factors