: ii [ call ] keep ;

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