sclass EnglishDateParser > DateStructures {
  bool assumeFuture = true; // e.g. for "tuesday" [not used]
  LS tok;
  
  ItIt<ParsedWithTokens<O>> parse(S s) {
    tok = javaTok(s);
    
    ItIt<ParsedWithTokens<Int>> years = nestedIterator parseYear(lai_codeTokens(tok));
    ret concatIterators(mapI(years, year -> (ItIt<ParsedWithTokens<O>>)itemPlusIterator(
      pwt_generalize(year),
      pwt_generalizeIterator(parseFixedToken("/", year.remaining())))));
    
    // <ymd> := <year> "/" <month> "/" <day>
    //between(parseInt(s), 1900, 2100)
    
    //ret nestedIterator parseNumber(lai_codeTokenIndices(tok));
  }
  
  ItIt<ParsedWithTokens<Int>> parseNumber(ListAndIndex<S> toParse) {
    ret mapI_nonNulls(pwt_followingTokens(1, 2, toParse),
      p -> isInteger(p!) ? p.withValue(parseInt(p!)) : null);
  }
  
  ItIt<ParsedWithTokens<Int>> parseYear(ListAndIndex<S> toParse) {
    ret filterI(parseNumber(toParse), p -> between(p!, 1900, 2100));
  }
  
  ItIt<ParsedWithTokens<S>> parseFixedToken(S token, ListAndIndex<S> toParse) {
    ret filterI(pwt_followingTokens(1, 2, toParse), p -> eqic(p!, token));
  }
}

static <A, B extends A> ItIt<ParsedWithTokens<A>> pwt_generalizeIterator(ItIt<ParsedWithTokens<B>> it) {
  ret (ItIt) it;
}

static <A, B extends A> ParsedWithTokens<A> pwt_generalize(ParsedWithTokens<B> p) {
  ret (ParsedWithTokens) p;
}