2(1 2)=(*+1+1+1:+1:+19248439,@N*2,23=23+4:1+@:19@5+82A+P?9*43G){34 sub dup 7 idiv 2 index 2{exch 7 mod 2 mul add dup =}repeat}forall