Add type expression of pair, triple, n-tuples.


    add3 :: (Number, Number) -> Number = (x, y) -> x + y

の代わりに

    add3 :: Number * Number -> Number = (x, y) -> x + y

と書くようにしましょう!