t[ii]$[y;[x;t[-x*2;y];t[x*2;y-:1]];[x;;]]

Twetch ยท

t[ii]$[y;[x;t[-x*2;y];t[x*2;y-:1]];[x;;]]