#lang racket

(define counter 0)

(define (inc-counter) (set! counter (add1 counter)))

(define (inc x)

(inc-counter)

(+ x 1))

(define (g x)

(inc x))

(g 4)

#lang medic

(layer layer1

(in #:module "src3.rkt"

; scope of multiple functions

[(g inc) [on-entry @log{function @function-name : x = @x}]]

; each-function primitive

[each-function [on-entry @log{function @function-name entered}]]))