How do I get a function's name as a symbol?

Question

I am trying to define a function func->symbol that takes a function and returns its name as a symbol. For example:

(define (pythagoras a b)