2 1 762{0 2 1 3 index{2 index exch 2 copy dup mul mod 0 eq{0 exit}if mod 0
eq{1 add}if}for 7 eq{=}if}for