lol.pir

.HLL 'lol'

# This can be made to work if we put a function in the 'parrot' HLL to load_bytecode from
.sub main :main
    load_bytecode 'wtf.pir'
.end

wtf.pir

.HLL 'wtf'

.loadlib 'perl6_group'
.sub demo :load :init
    # If you change this to ['lol';'Perl6Str'], then it works when load_bytecoded from
    # lol.pir, but obviously not when run directly.
    $P0 = get_root_namespace ['parrot';'Perl6Str']
    $P0 = new $P0
    $P0 = "hi"
    say $P0
.end

.sub main :main
    'demo'()
.end