* ?LEAVE ( cond -- ) leave a (innermost) loop if condition is true
?LEAVE
( cond -- )
forth_usual ordinary primitive