: do-until
  0
  begin 1+
        dup .
        dup 6 mod 0=
  until
  drop ;