gistfile1.txt

.sub "main" :main
    .const "Sub" $P0 = "bar"
    $P0 = clone $P0
    $P0()
.end

.sub "bar" :main
    .lex "a", $S0
    $S0 = "hello"
    "foo"()
.end

.sub "foo" :outer("bar")
    $S0 = find_lex "a"
    say $S0
.end