one row half h: its sixteen scores, scaled to base 2 (the products have
finished: the first multiply waits for them)
272def saScaleRow = (lambda unrestricted h : Nat . (lambda unrestricted tail : (family SM86Program) .
273 (saFor 16 (lambda unrestricted i : Nat .
274 (let unrestricted e = (saElem (saS (naturalDivideUnchecked i 2)) h (naturalModuloUnchecked i 2)) in
275 (saFmul e e saScale saWaitNone)))
276 tail)))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.