Simple solution in R:

   > '%+%' <- get( '+')
   > '+' <- function( e1, e2) 1 %+% e1 %+% e2
   > 2+2
   [1] 5

Regards