def cr.vm.nh.go

bend-osdev-crypto@0.1.0.0 · vmac.bend:147

import Base
import bend-osdev-word64@0.1.0.0/word64.bend as W

147def cr.vm.nh.go(ms: List<&2, W.W64>, ks: List<&2, W.W64>, y: CrU128) -> CrU128:
148  match ms:
149    case Con{m0, Con{m1, mt}}:
150      match ks:
151        case Con{k0, Con{k1, kt}}:
152          cr.vm.nh.go(mt, kt, cr.vm.add(y, cr.vm.mul(W.W64.add(m0, k0), W.W64.add(m1, k1))))
153        case _:
154          y
155    case _:
156      y