Defining binary indexing operators

Assume we have a function like:

foo <- function(x, y)

how is it possible to define a binary indexing operator, denoted by $, so 
that

x$y

functions the same as

foo(x, y)