!7

p {
  S text = "POKER is a GAME";
  L<IntRange> streaks = findStreaks(stringAsCharacterList(text), f isUpperCase);
  printStruct(streaks);
  pnl(substrings(text, streaks));
  print("Pattern: " + replaceRangesWithXYZVars(text, streaks));
}