perl -e ' use constant DEBUG =>0; use O qw( Concise -exec); print "toto" if DEBUG; print "toto" if DEBUG'
1  <0> enter
2  <;> nextstate(main 1 -e:1) v
3  <;> nextstate(main 1 -e:1) v
4  <@> leave[t1] vKP/REFC