gistfile1.txt

.sub "main" :main
    "bar"(0)
.end

.sub "bar" :main
    .param int run 
    .lex "a", $S0 
    $S0 = "hello"

    if run goto done
    "bar"(1)
    $S0 = "world"

  done:

    $S1 = find_lex "a" 
    say $S1 

    .const "Sub" $P0 = "foo"
    # result is wrong both with and without clone
    $P0 = clone $P0 
    $P0()
.end

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