1{-# LANGUAGE UnboxedTuples #-} 2module DoubleHashOp where 3 4( ## ) :: a -> b -> Int 5a ## b = 0 6 7( #* ) :: a -> b -> Int 8a #* b = 1 9