DB<1> $| = 1
 
  DB<2> x print "horst"
horst0  1
  DB<3> p print "horst"
horst1
  DB<4>  print "horst"
horst

##</code><code>##

  DB<5> $| = 0
 
  DB<6> x print "horst"
0  1
  DB<7>  print "horst"
horsthorst
  DB<8> p print "horst"
1horst