1module HexPrec where
2
3(%%) :: Int -> Int -> Int
4a %% b = 0
5
6infixl 2 %%
7