ClearAll["Global`*"];
Adjectives={shallowmellow,nice,sad,happy,noisy,cold,beautiful,delicate,shining,
sweet,soft,graceful,pretty,desiring,silly,fragile,silver,golden,
graceful,deafening,spiritless,heartbroken,sealed,stormy,rusty,frenetic,burning};
Adverbs={soon,late,desperately,passionately,slowly,softly,carefully,tenderly,gently,quickly,kindly};
Articles={the,a}; Ditverbs={gave,transformed,told,provided}; Opronouns={me,you,him,her,us,them};Spronouns={I,you,he,she,we};
Itverbs={raised,felt,anguished,shivered,shined,shouted,whispered,danced,dreamed};
Nouns={heart,mouth,soul,hand,saint,maiden,love,flower,garden,moon,sun,bird,breeze,rose,tulip,misery,despair,passion,desire,warmth,fire,flame,fantasy,wing,kingdom,light,shadow};
Preps={from,for,with,in} ;Pronouns={i,you,he,she,it,we,they,me,him,her,us,them};
Tverbs={loved,hated,wanted,felt,desired,cuddled,greeted,enjoyed};
Verbs={rose,coped,sang,cried,hoped,shouted,felt,danced,desired,dreamed};

Adjective:=RandomChoice[Adjectives];Adverb:=RandomChoice[Adverbs];Ditverb:=RandomChoice[Ditverbs];
Itverb:=RandomChoice[Itverbs];Noun:=RandomChoice[Nouns];Opronoun:=RandomChoice[Opronouns];
Prep:=RandomChoice[Preps];Pronoun:=RandomChoice[Pronouns];Spronoun:=RandomChoice[Spronouns];
OPronoun:=RandomChoice[Opronouns];Tverb:=RandomChoice[Tverbs];Verb:=RandomChoice[Verbs];
Article=RandomChoice[Articles]; Subject:=RandomChoice[{{Article,Noun},{Spronoun},{Article,Adjective,Noun}}];
Predicatelist:={{Adverb},{Prep,Article,Adjective,Noun},{Prep,Opronoun},{Article,Adjective,Noun},
{Opronoun},{Article,Adjective,Noun,Adverb},{Opronoun,Adverb},{Opronoun,Article,Adjective,Noun}};
Verblist:={{Itverb},{Itverb},{Itverb},{Tverb},{Tverb},{Tverb},{Tverb},{Ditverb}};
Predicate:=RandomChoice[Table[{Verblist[[i]],Predicatelist[[i]]},{i,Length[Verblist]}]];
Object:=RandomChoice[{{},{Adverb},{Subject},{Opronoun},{Prepsubject}}];
Verbobject:={Verb,Object}; Prepsubject:={Prep,Subject}; Subjectpredicate:={Subject,Predicate};
Continuations:=If[Length[Object]+Length[Prep]<4,{"and",Subjectpredicate},{}];
Sentence:=Flatten[RandomChoice[{{Subject,Verbobject}}]];Verse:=Table[Sentence,{5}];
Poem=Table[Verse,{3}];
Do[V=Poem[[j]];Do[S=V[[k]];Do[W=S[[m]];If[m==1,W=Capitalize[ToString[W]]]; WriteString["poem.txt",W," "],{m,Length[S]}];WriteString["poem.txt","\n"],{k,Length[V]-1}];WriteString["poem.txt","\n"],{j,Length[Poem]}]; Close["poem.txt"];
A=Import["poem.txt"]