enum RID, I, SAMPLE, CLOSURE_LEN=$
...
function s_of_n_creator(integer n)
sequence closure = repeat(0,CLOSURE_LEN)
closure[RID] = s_of_n
closure[I] = 0
closure[SAMPLE] = repeat(0,n)
return closure
end function
