DB<1> print (2+2)*5;
4
  DB<2> print ((2+2)*5);
20
  DB<3> print 3*5;
15
  DB<4> $foo=(2+2)*5;

  DB<5> x $foo
0  20