sub probability {
    my $entity_count = @{$_[0]};
    my $sample_count = @{$_[1]};
    return( ( 1 / $entity_count ) ^^ $sample_count );
}