haskell - replace hexadecimal implementation with one that does not cheat :)