EqWord class added
Using fromIntegral instead of ghc internals