2001 1 3000{dup 100 idiv 1 add dup 3 mul 4 idiv exch 8 mul 5 add 25 idiv 1 index sub 2 index 19 mod 11 mul add 8 add 30 mod dup 25 eq 3 index 19 mod 10 gt and 1 index 24 eq or{1 add}if dup 24 idiv 30 mul exch sub 51 add exch 2 index 5 mul 4 idiv sub 1 index sub 2 sub 7 mod add dup 1 sub 31 mod 101 add 3 string cvs 1 2 getinterval print 31 gt{( APRIL, 0)}{( MARCH, 0)}ifelse print =}for