Paste: suggestions plz

: ordered-perms ( seq -- seq )
    [
      [ length >array [ 1+ ] map ]
      [ ] bi
      '[ _ swap clump ] each
    ] [ length ] bi narray ;

Annotation: next1

: ordered-perms ( seq -- seq )
    [ length >array [ 1+ ] map ]
    [ ] bi
    '[ _ swap clump ] map ;

Annotation: next2

USING: ;
IN: phrases

: (number-of-branches) ( seq -- seq )
    length >array [ 1+ ] map ;

: just-alpha ( seq -- seq ) " " split [ [ alpha? ] filter ] map ;
: trim-empty ( seq -- seq ) [ "" = ] trim ;
    
: possible-phrases ( sentence -- words-seq )
    just-alpha trim-empty
    [ (number-of-branches) ] [ ] bi
    '[ _ swap clump [ " " join ] map ] map ;

New Annotation