{-# LANGUAGE OverloadedLabels #-} ( #. ) :: Int -> Int -> Int x #. y = x + y infixr 9 #.