: loop 1 swap - 2dup . 0 = if else loop then ;
: loop2 2 swap - 2dup . 0 = if else loop2 then ;
: >= 2dup > rot rot = or ;
: 2dup swap dup rot dup rot rot ;
: <= 2dup < rot rot = or ;