#!/usr/bin/mawk -f
#Fractured English Random Rhymes, Aug 2000
#by Andrea Manzini <linux@netbusiness.it>
function rnd() {return 1+int(rand()*6);}
function word(L,r) {print L[r] " "};
BEGIN {split("sordid graceful wily vicious really sparkling",A," ")
split("duchess grocer glutton flautist laundress sailor",C," ")
split("and felt trembly|on a train|and went mad|twice a week|with a cow|in a trance",G,"|")
split("she he she he she he",H," ");split("quick slow few hard late long",I," ")
split("noticed|followed|asked for|looked for|wanted|longed for",J,"|")
split("green young vile bland old wild",B," ")
split("wanted followed counted demolished collected swallowed",E," ");
split("Wembley Spain Chad Speke Slough France",D," ")
split("a brick|some dough|a pew|some lard|a plate|a song",K,"|")
split("some stamps|a stoat|a nude|some cakes|a frog|some mould",F,"|");
ORS="";print "A ";w=rnd();x=rnd();y=rnd();word(A,w);word(B,x);word(C,y)
print "from ";z=rnd();word(D,z);print "\n";print "Once ";v=rnd();word(E,v)
word(F,rnd());word(G,z);print "\n";word(H,y);word(E,v);print "so ";t=rnd()
word(I,t);print "\nThat ";word(H,y);word(J,rnd());word(K,t);print "\nThis "
word(A,w);word(B,x);word(C,y);print "of ";word(D,z);print ".\n"}
