use v6.c;
use Test;

use FindBin <$Script Verbose>;

# convince myself that $Script is passed through
# in a way that reasonably permits handling it 
# as text.

my ( $count ) = $Script ~~ m{ (\d+) };

ok 0 < +$count, "Found '$count' ($Script)";

done-testing;

