🚀 go-pugleaf

Chris writes:
> Dan certainly gets better efficiency: -oneof- is slow on lists (because
> -length- and indexing are slow on lists). Given Steve's propensity for
> speed-hacking, I'm surprised he didn't write the definition of -syllables- as
>     lvars syllables = {% 'syllables'.discin.incharline.pdtolist.dl %};
> to generate a vector rather than a list. 

No fair, Chris :-)  It was only an anecdote ...  Still if you insist[*].
    define pdtovector( p ); lvars p; {% apprepeater( p, identfn ) %} enddefine;

Footnote:

Besides, you know I'd have written it like this for speed
    define program();
        lvars n = #| apprepeater( '/tmp/syllables'.discinline, identfn ) |#;
        repeat 3 times
            n.random.subscr_stack.pr
        endrepeat;
        nl( 1 );
    enddefine;