.namespace ["InlineParrot"]
.sub main :main
$P0 = new .PerlInt
$P0 = 5
store_global "x", $P0
.local pmc ns
ns = split "::","parrot::InlineParrot"
$P3 = get_namespace ns
$P1 = find_global $P3,"x"
say $P1
.end
#parrot_ns = VTABLE_get_pmc_keyed_int(interpreter,
# interpreter->HLL_namespace 0);
#symbol = VTABLE_set_pmc_keyed_str(interpreter, parrot_ns, const_string(interpreter, "Foo"));