foo.pir

.sub main :main
    .local pmc pirC
    pirC = compreg 'PIR'
    .local string code
    code = <<"END_CODE"
    .sub bar
        say "hi"
    .end
END_CODE
    .local pmc compiled
    compiled = pirC(code)
    .local pmc sub
    sub = compiled[0] # just want the first executable sub here.
    sub() # works
    $S0 = freeze sub
    say "frozen"
    $P2 = thaw $S0
    say "thawed"
    $P2()
.end