(   eastdiff.scr : longcalc script to test that the interval) wrt wln
(   between Gregorian Easters is 350, 357, 378 or 385 days) wrt wln
(   www.merlyn.demon.co.uk >= 2001-04-17) wrt wln wln

(dup wrt wln dup dup #ge swp 0 0 0 #ds swp inc dup #ge swp 0 0 0 #ds )
(swp sub 86400 div dup (DiffDays) wrt wrt 7 div dup wrt ) cat
(2 div 26 sub abs dec dup wrt ) cat
(((non-zero => not 50 51 54 55 weeks) wrt hlt) no0 ) cat
(wln wln) cat

2 kio for stk (   eastdiff.scr ends.  ) wrt