use v6-alpha;

module pragma::Demo-0.01;

sub import (Str $pkg, Int $arg is copy = 0) returns Void {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals::install_pragma_value($pkg, $newarg);
}