gistfile1.txt

use nqp;
sub dd(|) {
    my $args := nqp::p6argvmarray();
    if nqp::elems($args) {
        while $args {
            my $var := nqp::shift($args);
            my $varname := try $var.VAR.?name;
            my $vartype := $var.VAR.of.^name;
            my $val := $var.?is-lazy
              ?? $var[^10].perl.chop ~ "... (lazy list)"
              !! $var.perl;
            my $valtype = $var.^name;
            note ($varname and "$vartype $varname = "), $val, " ($valtype)";
        }
    }
    else { # tell where we are
        note .name ?? "{lc .^name} {.name}" !! "({lc .^name})"
          with callframe(1).code;
    }
    return
}

my Numeric @var = ^10;
dd @var