return level example

namespace eval draft {
proc p6 {} {
    return bar6
}
proc p5 {} {
    return -level 2 FOO
}
proc p4 {} {
    return bar4
}
proc p3 {} {
    return [p4][p5][p6]
}
proc p2 {} {
    p3
}
proc p1 {} {
    p2
}
proc p0 {} {
    p1
}
puts [p0]
}
namespace delete draft