# XXX Very cheaty, just to get us able to output something.
sub say(Mu $value) {
    pir::say__vS(pir::repr_unbox_str__SP($value.Str));
    1.Bool
}

sub print(Mu $value) {
    pir::print__vS(pir::repr_unbox_str__SP($value.Str));
    1.Bool
}

# XXX Very cheaty, just to get us able to output something.
sub say(|$) {
    Q:PIR {
        $P0 = perl6_current_args_rpa
        $P1 = iter $P0
      loop:
        unless $P1 goto done
        $P2 = shift $P1
        print $P2
        goto loop
      done:
        print "\n"
    };
    1.Bool
}

sub print(|$) {
    Q:PIR {
        $P0 = perl6_current_args_rpa
        $P1 = iter $P0
      loop:
        unless $P1 goto done
        $P2 = shift $P1
        print $P2
        goto loop
      done:
    };
    1.Bool
}

Enable &say and &print to be able to accept an argument list instead of single arguments.
Enable &say and &print to be able to accept an argument list instead of single arguments.
