sclass EnglishDateParser > DateStructures {
  bool assumeFuture = true; // e.g. for "tuesday" [not used]
  LS tok;
  
  ItIt<ParsedWithTokens<SomeDate>> parse(S s) {
    tok = javaTok(s);
    
    It<ParsedWithTokens<Int>> years = nestedIterator parseYear(lai_codeTokenIndices(tok));
    ret mapI(years, year -> itemPlusIterator(year,
      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));
  }
}