use _007;

sub run_007_on_007($program) {
    my $compunit = _007.parser.parse($program);
    my $runtime-program = slurp("self-host/runtime.007");
    my $runtime = _007.runtime;
    my $ast = _007.parser(:$runtime).parse($runtime-program);
    $ast.block.static-lexpad.properties<ast> = $compunit;
    $runtime.run($ast);
}

multi MAIN($path) {
    run_007_on_007(slurp($path));
}

multi MAIN(Str :e($program)!) {
    run_007_on_007($program);
}
