!7

p {
  S text = "POKER is a GAME";
  L<IntRange> streaks = findStreaks(stringAsCharacterList(text), f isUpperCase);
  printStruct(streaks);
}