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