Sha.depth.step: def of ezx@1.11.0.0
Import: import ezx@1.11.0.0/src/share/sha.bend as Sha
Lines 23-30 of ezx@1.11.0.0/src/share/sha.bend: https://jend.leeeet.dev/read.txt?path=ezx@1.11.0.0/src/share/sha.bend&start_line=23&end_line=30

import Base

# one more bit of depth when the capacity does not yet hold the words. The
# rest is a thunk, so the stop does not build the next depth.
def depth.step(more: Bool, acc: Nat, rest: Unit -> Nat) -> Nat:
  match more:
    case False{}:
      acc
    case True{}:
      rest(Unit{})

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit