Finish coin cointing in haskell