: ii [ call ] keep ; : prec ( from to f -- ) -rot [ 2dup <= ] [ [ tuck [ ii ] dip 1 + ] dip ] [ 3drop ] while ;
Done