module T6091 where infixr 4 `foo` foo :: Int -> Int -> Int foo x y = x * y