\l tck/factor while:D[(`dup2;`r;`r;`r;`call;`r_`call`r_`r_`while;`r`drop`r`drop`r`drop;`ifte)] / E(,1;("loop forever";`print);`while) / E(5;(-1;+;`dup;0;=;~:);`dup`z;`while)