(phixonline)-->
with javascript_semantics
function fs(integer rid, j, sequence s)
sequence r = repeat(0,length(s))
for i=1 to length(s) do
r[i] = rid(j,s[i])
end for
return r
end function
function p_apply(sequence ffa, args)
integer {f1,f2,j} = ffa
return f1(f2,j,args)
end function
function f3(integer j,i)
return j+i
end function
printf(1,"%v\n",{p_apply({fs,f3,1},{0,1,2,3})})