infixr 2 l
infixr 1 r

l a b = a
r a b = b

main = (1 :: Integer) `l` (2 :: Integer) `r` (3 :: Integer) `l` (4 :: Integer)
--
3