static void tok_simplyCachedFunctions(L<S> tok) { pcall {
  int i = -1;
  while ((i = jfind(tok, i+1, "simplyCached <id>")) >= 0) {
    Cl<S> modifiers = tok_modifiersLeftOf(tok, i);
    int iMod = tok_leftScanModifiers(tok, i);
    int bracket = indexOf(tok, "(", i);
    S fName;
    try {
      fName = assertIdentifier(tok.get(bracket-2));
    } on fail {
      printTokenContext(tok, iMod, bracket-2);
    }
    int iMod2 = tok_rightScanModifiers(tok, i+2);
    modifiers.addAll(codeTokensFromSubList(tok, i+2, iMod2));
    S type = joinSubList(tok, iMod2, bracket-3);
    S boxedType = tok_toNonPrimitiveTypes(type);
    S fieldMods = joinWithSpace(listMinus(modifiers, "final", "abstract"));
    S functionMods = joinWithSpace(listMinus(modifiers, "transient", "abstract"));
    S loadFunctionMods = joinWithSpace(listMinus(modifiers, "transient"));
    bool isVoid = eq(type, "void");
    
    S var = isVoid ? "ran_" + fName : fName + "_cache";
    S implFunc = isVoid ? fName + "_impl" : fName + "_load";
    S varType = isVoid ? "bool" : boxedType;
    
    S replacement =
      // variable declaration
      "\*fieldMods*/ \*varType*/ \*var*/;\n"
      
      + "\*functionMods*/ \*type*/ \*fName*/() { "
      
      // function body
      + (isVoid
        ? "if (\*var*/) ret; set \*var*/; \*implFunc*/();"
        : "if (\*var*/ == null) \*var*/ = \*fName*/_load(); ret \*var*/;")
        
      + "}\n\n"

      // beginning of impl function
      + "\*loadFunctionMods*/ \*type*/ \*implFunc*/";
        
    replaceTokens_reTok(tok, iMod, bracket-1, replacement);
  }
}}

Began life as a copy of #1010513