{
    $type = ('hex','oct')[rand 2];
    eval qq[
        rule Perl::Literals::$type::number {
            {die 'this base no longer exists'}
        }
    ];
    print 0o017;
}