tupleMul :: (Integer, Integer) -> (Integer, Integer) -> Integer
tupleMul t1 t2 = fst t1 * fst t2 + snd t1 * snd t2
tupleMul :: (Integer, Integer) -> (Integer, Integer) -> Integer
tupleMul t1 t2 = fst t1 * fst t2 + snd t1 * snd t2
tupleMul t1 t2 = fst t1 * fst t2 + snd t1 * snd t2