f:{$[x=1;1;x*.z.s x-1]}