lorem.factor

atem sequi nesciunt. Neque dolorem ipsum quia dolor sit amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis Nemo enim ipsam voluptatem quia voluptas sit suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate velit esse quam nihil molestiae  et iusto odio dignissimos ducimus qui blanditiis praesentium laudantium, totam rem voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, Sed ut perspiciatis unde omnis iste natus error similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo porro quisquam est, qui minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut consequatur, vel illum qui dolorem eum fugiat quo voluptas nulla pariatur? At vero eos et accusamus officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores doloribus asperiores repellat." 


: clean ( -- string )     text >lower R/ [^\sA-Za-z]/ "" re-replace ;
CONSTANT: wordlist ( -- array ) $[ clean R/ \s+/ re-split [ >string ] map ]

: getword ( -- string )   wordlist random ;
: getwords ( n -- array ) wordlist swap sample ;
: sentencewords (  -- array  ) 4 10 [a,b] random getwords ;
: sentencestring ( -- string ) sentencewords " " join ;

: ucfirst ( string -- string ) 1 cut [ >upper ] dip append ;
: sentence ( -- string ) sentencestring ucfirst "." append ;
: sentences ( n -- array ) [ sentence ] replicate ;
: paragraph ( -- string ) 3 7 [a,b] random sentences " " join ;
: paragraphs ( n -- array ) [ paragraph ] replicate ;