10 100 draw 							`s	set;
s 10 20 draw +							`e	set;
s <:								`o	set;
s o @								`s	set;
e o @								`e	set;
s e ,								`t	set;
s #: 1 # e #: -1 # ,						`d	set;
t <:								`o	set;
d o @ [+] Iterate 0 ,. [pop ~:] prior &:			`j	set;
t o j 1 + j 2 list [-1 _.] map @ @ [-] iterate [+] iterate	`idle	set;