[0] Perl> sub pin{ sprintf '%04d', rand 10000 };;
[0] Perl> $h{ pin() }++ for 1 .. 1e6;;
[0] Perl> print +( 10000 == grep{ length() == 4 } keys %h ) ? 'OK' : '
+not OK';;
OK
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.