Ch7, Ex3

declare
fun {TraceNew2 Class Init}
   TInit={NewName}
   class Tracer
      attr obj:{New Class Init}
      meth !TInit skip end
      meth otherwise(M)
         {Browse entering({Label M})}
         {@obj M}
         {Browse exiting({Label M})}
      end
   end
in {New Tracer TInit} end