@args = qw/-p $project->name/;
push @args, '-f' if $force;
system "inc_seqs", @args;

##</code><code>##

sub is_tainted {
    my $arg = shift;
    my $nada = substr( $arg, 0, 0 );  # zero-length
    local $@;  # preserve caller's version
    eval { eval "# $nada" };
    return length($@) != 0;
}