sub badRand($) { rand() < 0.5 ? 0 : rand( $_[0] ) }