1module HolesInfix where 2 3f, g, q :: Int -> Int -> Int 4f x y = _ x y 5g x y = x `_` y 6q x y = x `_a` y 7