[R] How to show the definition of a S3 function?

[Peng Yu]

> library(contrast)
> contrast
function (fit, ...)
UseMethod("contrast")
<environment: namespace:contrast>

I guess the above function is S3. Could somebody let me know how to
show the function body in an R session?