ttp://stackoverflow.com/questions/10376963/why-doesnt-this-haskell-typeclass-code-work
これかな?