Cli.cluster: def of shake@0.8.0.0
Import: import shake@0.8.0.0/src/cli.bend as Cli
Lines 962-971 of shake@0.8.0.0/src/cli.bend: https://jend.leeeet.dev/read.txt?path=shake@0.8.0.0/src/cli.bend&start_line=962&end_line=971

import Base

# every letter of a short cluster `-abc`, in order: a flag binds and the next
# letter goes on; an option takes the rest of the word, after one `=`, or the
# next word when nothing is left; an unknown letter, or a flag given `=`,
# refuses the whole word
def cluster(body: String, +orig: String, +st: St, +done: Bool) -> St:
  match body:
    case SNil{}:
      st
    case SCon{+cc, +rest}:
      cluster(rest, orig, cluster.letter(done, cc, rest, orig, st), cluster.done(done, cc, rest, st))

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=shake@0.8.0.0/src/cli.bend&name=St
  https://jend.leeeet.dev/definition.txt?path=shake@0.8.0.0/src/cli.bend&name=cluster.done
  https://jend.leeeet.dev/definition.txt?path=shake@0.8.0.0/src/cli.bend&name=cluster.letter