WOLFRAM NOTEBOOK

In[]:=
ws=ResourceFunction["WordSyllables"];​​poem="Over the wintry\nForest, winds howl in rage\nWith no leaves to blow.";​​Until[Length[ws[adj]]==2,adj=RandomWord["Adjective"]];​​Until[Length[ws[noun]]==1,noun=RandomWord["Noun"]];​​Until[Length[ws[verb]]==1,verb=RandomWord["Verb"]];​​newPoem=StringReplace[poem,{"wintry"->adj,"rage"->noun,"blow"->verb}]
Out[]=
Over the tonsuredForest, winds howl in crepeWith no leaves to hasp.
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.