1{-# LANGUAGE UnboxedTuples #-} 2module DoubleHashOp where 3 4(##) :: a -> b -> Int 5a ## b = 0 6 7(#*) :: a -> b -> Int 8a #* b = 1 9 10-- This still does not work though: 11-- (#) :: a -> b -> Int 12-- a # b = 2 13