[2000 4 .runstdin{dup 100 mod 0 eq{dup 400 mod 0 ne{pop}if}if}for]{=}forall