ManualQASTFromP6

use QAST:from<NQP>;

my $qast := QAST::Block.new(QAST::Op.new( :op<call>, QAST::Var.new(:name<&say>, :scope<lexical>), QAST::SVal.new(:value('Hello World'))));

my $comp_unit := QAST::CompUnit.new(
    # Set the HLL.
    :hll('perl6'),

    # This variable contains the outermost QAST::Block of the
    # program.
    $qast,

    # If we run the program as the mainline, then call the top
    # block automatically.
    :main(QAST::Op.new(
        :op('call'),
        QAST::BVal.new( :value($qast) )
    ))
);

my $compiler = nqp::getcomp('perl6');


say $_ for $compiler.stages();

my $backend := $compiler.backend();
my $mast := $backend.mast($comp_unit);
my $mbc := $backend.mbc($mast);
my $compiled := $backend.moar($mbc);
$backend.compunit_mainline($compiled)();

say "Compiled and ran with no errors.";