⊦ putArray(val ' + vals, r, i, st) = (putArray(vals, r, i + 1, st)[r -- i ', val])
⊦ putArray([], r, i, st) = st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, i, r, [], val)]]