def mul64

bend-collections@1.0.0.0 · proofs/crypto/sha/conformance.bend:605

import Base

605# Byte counts of whole blocks: 64 * k, built the way stream accumulates them.
606def mul64(k: Nat) -> Nat:
607  match k:
608    case 0n:
609      0n
610    case 1n+p:
611      Nat.add(64n, mul64(p))