source("test.R")  # in R/ directory
> e <- dbnew("test.R")
> dbbr(e,5)
> dbbr(e,7)
> dbbr(e,11)
> dbpr(e)
[1] "debug():"
NULL
[1] "browser()():"
     src      linenum
[1,] "test.R" "5"    
[2,] "test.R" "7"    
[3,] "test.R" "11"   
> f
function(x,y) {
   z <- x + y
   if (z > 10) {
      z <- g(x,y,z)  ;;  browser()
   }
   z  ;;  browser()
}
> g
function(x,y,z) {
   tmp <- z - x + y  ;;  browser()
   tmp^2
}
> dbwipe(e)
> dbpr(e)
[1] "debug():"
NULL
[1] "browser()():"
     src linenum
> f
function(x,y) {
   z <- x + y
   if (z > 10) {
      z <- g(x,y,z)  
   }
   z  
}
> g
function(x,y,z) {
   tmp <- z - x + y  
   tmp^2
}