[R] Is it possible to recursively update a function?

[Seeker]

Here is the test code.

foo<-function(x) exp(-x)
for (i in 1:5)
{
foo<-function(x) foo(x)*x
foo(2)
}

The error is "evalution nested too deeply". I tried Recall() but it
didn't work either. Thanks a lot for your input.