: 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 ;