sub evaluate {
    my $pkg = shift;
    my ($ctx, $snippet) = @_;
    $ctx->addOpinion($pkg, timestr(timeit(400000, $snippet)));
}