[ dup 1 & dip [ 1 >> ] ] is 2/mod         (   n --> n n )

  [ 0 swap
    [ dup 0 != while
      2/mod iff
        [ dip 1+ ] done
      again ]
    [ dup 0 != while
      2/mod not iff
        [ dip 1+ ] done
      again ]
    [ dup 0 != while
      2/mod iff
        [ dip 1+ ] done
      again ]
    drop 3 = ]             is noncontinuous (   n --> b   )

  [ [] unrot
    [ dup 0 != while
      dip behead tuck
      1 & iff
        [ nested dip rot
          join unrot ]
      else drop
      1 >> again ]
    2drop ]                is bitems        ( [ n --> [   )

  [ [] swap
    dup size bit times
     [ i^ noncontinuous if
        [ dup i^ bitems
          nested rot
          join swap ] ]
     drop ]                is ncsubs        (   [ --> [   )

  ' [ 1 2 3 4 ] ncsubs echo cr

  $ "quackery" ncsubs 72 wrap$