%%HP: T(3)A(R)F(.);
\<<
  IF DEPTH 3. <
  THEN # 201h DOERR
  END 3. DUPN 3. \->LIST { { 1582. 2999. } { 1. 12. } { 1. 31. } } ADD 1.
  \<< OBJ\-> DROP \-> v l h
    \<<
      CASE v TYPE 0. ==
        THEN
        END v TYPE 28. ==
        THEN
        END # 202h DOERR
      END
      IF v l < v h > OR
      THEN # 203h DOERR
      END
    \>>
  \>> DOLIST
\>>