[plt-scheme] Does the procedure know who called it and how many times?

I need "..." parts

(define (f x)
  (let ((p ... ))
        (display "I'm called by ") (display p))
        (if (eq? p f)
            (let ((n ...))
                 (display "I called myself recursively ")
                 (display n)
                 (display " times."))))

        (do something)))

Is there any way I can do it without defining new argument of f or new 
global variable?

Thank you.