\ condthens (Wil Baden)

0 constant cond  immediate

: thens
  begin  ?dup while  postpone then
  repeat ; immediate