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