@main[]
$LOG

@log[value]
$LOG[${LOG}$caller.CLASS_NAME $value^#0A]

@CLASS
a

@auto[path;inherited]
^log[$inherited]

@method[]
a

@CLASS
b

@auto[path]
^log[once]

@method[]
b

@CLASS
a1

@BASE
a

@m[]

@CLASS
b1

@BASE
b

@m[]

@CLASS
a2

@BASE
a1

@m[]

@CLASS
b2

@BASE
b1

@m[]