traceon
define(cleanup,doing the cleaning)
m4wrap(`cleanup')
define(aamacro3,bottom reached arg=$1)
define(aamacro2,$1)
define(aamacro1,aamacro2(aamacro3($1)))
aamacro1(Trace is on)
traceoff
define(bbmacro3,bottom reached arg=$1)
define(bbmacro2,$1)
define(bbmacro1,bbmacro2(bbmacro3($1)))
bbmacro1(Trace is off)
traceon
