RosettaCodeData/Task/Scope-Function-names-and-labels/Racket/scope-function-names-and-labels-2.rkt

(define (foo x)
  (define (bar y) (+ x y))
  bar)
(foo 1)     ; => #<procedure:bar>
((foo 1) 2) ; => 3