sub import {
    no strict 'refs';
    my $pkg = shift;

    for my $dice (@_) {
    if ($dice =~ /r(\d+)[Dd](\d+)/) {
        # my $meth = \sub { roll($1, $2); };
        my $meth = \sub {"__PACKAGE__::$dice"};
        *{$pkg . '::' . $dice} = $meth;
    }
    }
    @EXPORT_OK = @_;
    Smonk->export_to_level(1, $pkg, @_);
}