*! version 1.3.1 Joe Long 06nov2013
cap program drop nicewords
program nicewords, rclass
	version 12.0
	syntax, [NOT Foreign SMILEy EVIL]
	if "`evil'" != "" & ("`not'" == "" | "`smiley'" == "") {
		di as err "evil does not work without the -not- and -smiley- option"
		exit 666
	}
	if "`foreign'" != ""{
		if "`not'" == ""{
			loc	w0	Bien
			loc	w1	Bueno
			loc	w2	Que bueno
			loc	w3	Muy bien
			loc	w4	Excelente
			loc	w5	Bien hecho
			loc	w6	Usted es mi heroe
			loc	w7	Increible
			loc	w8	Incroyable
			loc	w9	Vous etes mon heros
			loc	w10	Bien
			loc	w11	Bon
			loc	w12	Tres bien
			loc	w13	Excellent
			loc	w14	Bien fait
			loc	w15	Gut
			loc	w16	Sehr gut
			loc	w17	Gut gemacht
			loc	w18	Buono
			loc	w19	Bene
			loc	w20	Ben fatto
			loc	w21	Molto buono
			loc	w22	Bom
			loc	w23	Muito bom
			loc	w24	Bem feito
			loc	w25	Yoku dekimashita
			loc	w26	Ii desu yo
			loc	w27	Dare yori mo ii desu yo
			loc	w28	Sugoi desu yo
			loc	w29	Sugeeeee
			loc	w30	Hoc bonum est
			loc	w31	Feichang hao
			loc	w32	Zuo de hao
			loc	w33	Ting hao
			loc	w34	Hen hao
			loc	w35	Hao youxiu
			loc	w36	Zhen liaobuqi
			loc	w37	Hao liaobuqi
			loc	w38	Mirabile visu
			loc	w39	Chaoji hao
			loc	w40	Spectaculaire
			loc	w41	Impressionant
			loc	w42	Genial
			loc	w43	Vous etes mon inspiration
			loc	w44	Bien
			loc	w45	Bueno
			loc	w46	Que bueno
			loc	w47	Muy bien
			loc	w48	Excelente
			loc	w49	Bien hecho
			loc	w50	Usted es mi heroe
			loc	w51	Increible
			loc	w52	Incroyable
			loc	w53	Vous etes mon heros
			loc	w54	Bien
			loc	w55	Bon
			loc	w56	Tres bien
			loc	w57	Excellent
			loc	w58	Bien fait
			loc	w59	Gut
			loc	w60	Sehr gut
			loc	w61	Gut gemacht
			loc	w62	Buono
			loc	w63	Bene
			loc	w64	Ben fatto
			loc	w65	Molto buono
			loc	w66	Yoku dekimashita
			loc	w67	Ii desu yo
			loc	w68	Dare yori mo ii desu yo
			loc	w69	Sugoi desu yo
			loc	w70	Sugeeeee
			loc	w71	Hoc bonum est
			loc	w72	Feichang hao
			loc	w73	Zuo de hao
			loc	w74	Ting hao
			loc	w75	Hen hao
			loc	w76	Hao youxiu
			loc	w77	Zhen liaobuqi
			loc	w78	Hao liaobuqi
			loc	w79	Ni zhen shi yige yingxiong
			loc	w80	Chaoji hao
			loc	w81	Spectaculaire
			loc	w82	Impressionant
			loc	w83	Genial
			loc	w84	Vous etes mon inspiration
			loc	w85	Bien
			loc	w86	Bueno
			loc	w87	Que bueno
			loc	w88	Muy bien
			loc	w89	Excelente
			loc	w90	Bien hecho
			loc	w91	Usted es mi heroe
			loc	w92	Increible
			loc	w93	Incroyable
			loc	w94	Vous etes mon heros
			loc	w95	Bien
			loc	w96	Bon
			loc	w97	Tres bien
			loc	w98	Excellent
			loc	w99	Bien fait
			loc	w100	Gut
			loc	w101	Sehr gut
			loc	w102	Gut gemacht
			loc	w103	Buono
			loc	w104	Bene
			loc	w105	Ben fatto
			loc	w106	Molto buono
			loc	w107	Mihi vere placet
			loc	w108	Mihi vere placet
			loc	w109	Mihi vere placet
			loc	w110	Yoku dekimashita
			loc	w111	Ii desu yo
			loc	w112	Dare yori mo ii desu yo
			loc	w113	Sugoi desu yo
			loc	w114	Sugeeeee
			loc	w115	Mihi vere placet
			loc	w116	Feichang hao
			loc	w117	Zuo de hao
			loc	w118	Ting hao
			loc	w119	Hen hao
			loc	w120	Hao youxiu
			loc	w121	Zhen liaobuqi
			loc	w122	Hao liaobuqi
			loc	w123	Ni zhen shi yige yingxiong
			loc	w124	Chaoji hao
			loc	w125	Spectaculaire
			loc	w126	Impressionant
			loc	w127	Genial
			loc	w128	Vous etes mon inspiration
			loc	w129	Bien
			loc	w130	Bueno
			loc	w131	Que bueno
			loc	w132	Muy bien
			loc	w133	Excelente
			loc	w134	Bien hecho
			loc	w135	Usted es mi heroe
			loc	w136	Increible
			loc	w137	Incroyable
			loc	w138	Vous etes mon heros
			loc	w139	Bien
			loc	w140	Bon
			loc	w141	Tres bien
			loc	w142	Excellent
			loc	w143	Bien fait
			loc	w144	Gut
			loc	w145	Sehr gut
			loc	w146	Gut gemacht
			loc	w147	Buono
			loc	w148	Bene
			loc	w149	Ben fatto
			loc	w150	Molto buono
			loc	w151	Yoku dekimashita
			loc	w152	Ii desu yo
			loc	w153	Dare yori mo ii desu yo
			loc	w154	Sugoi desu yo
			loc	w155	Sugeeeee
			loc	w156	Hoc bonum est
			loc	w157	Feichang hao
			loc	w158	Zuo de hao
			loc	w159	Ting hao
			loc	w160	Hen hao
			loc	w161	Hao youxiu
			loc	w162	Zhen liaobuqi
			loc	w163	Hao liaobuqi
			loc	w164	Ni zhen shi yige yingxiong
			loc	w165	Chaoji hao
			loc	w166	Spectaculaire
			loc	w167	Impressionant
			loc	w168	Genial
			loc	w169	Vous etes mon inspiration
			loc	w170	Bien
			loc	w171	Bueno
			loc	w172	Que bueno
			loc	w173	Muy bien
			loc	w174	Excelente
			loc	w175	Bien hecho
			loc	w176	Usted es mi heroe
			loc	w177	Increible
			loc	w178	Incroyable
			loc	w179	Vous etes mon heros
			loc	w180	Bien
			loc	w181	Bon
			loc	w182	Tres bien
			loc	w183	Excellent
			loc	w184	Bien fait
			loc	w185	Gut
			loc	w186	Sehr gut
			loc	w187	Gut gemacht
			loc	w188	Buono
			loc	w189	Bene
			loc	w190	Ben fatto
			loc	w191	Molto buono
			loc	w192	Hoc bonum est
			loc	w193	Hoc bonum est
			loc	w194	Hoc bonum est
			loc	w195	Yoku dekimashita
			loc	w196	Ii desu yo
			loc	w197	Dare yori mo ii desu yo
			loc	w198	Sugoi desu yo
			loc	w199	Sugeeeee
			loc	w200	Hoc bonum est
			loc	w201	Feichang hao
			loc	w202	Zuo de hao
			loc	w203	Ting hao
			loc	w204	Hen hao
			loc	w205	Hao youxiu
			loc	w206	Zhen liaobuqi
			loc	w207	Hao liaobuqi
			loc	w208	Ni zhen shi yige yingxiong
			loc	w209	Chaoji hao
			loc	w210	Hao weida
		}
		else {
			forvalues n = 0/210{
				loc w`n' No bueno
			}
		}
	}
	else {
		if "`not'" == ""{
			loc	w0	"A+ work"
			loc	w1	"Absolutely amazing"
			loc	w2	"Absolutely awesome"
			loc	w3	"Absolutely beautiful"
			loc	w4	"Absolutely brilliant"
			loc	w5	"Absolutely excellent"
			loc	w6	"Absolutely fabulous"
			loc	w7	"Absolutely genius"
			loc	w8	"Absolutely great"
			loc	w9	"Absolutely incredible"
			loc	w10	"Absolutely magnificent"
			loc	w11	"Absolutely marvelous"
			loc	w12	"Absolutely masterful"
			loc	w13	"Absolutely outstanding"
			loc	w14	"Absolutely phenomenal"
			loc	w15	"Absolutely remarkable"
			loc	w16	"Absolutely stupendous"
			loc	w17	"Absolutely superb"
			loc	w18	"Absolutely terrific"
			loc	w19	"Absolutely unbelievable"
			loc	w20	"Absolutely wonderful"
			loc	w21	"Brilliantly handled"
			loc	w22	"Excellent work"
			loc	w23	"Good job"
			loc	w24	"Good work"
			loc	w25	"Great job"
			loc	w26	"Hats off to you"
			loc	w27	"High five"
			loc	w28	"I expected no less of a genius"
			loc	w29	"I like"
			loc	w30	"It's a masterpiece"
			loc	w31	"Just amazing"
			loc	w32	"Just amazing"
			loc	w33	"Just awesome"
			loc	w34	"Just beautiful"
			loc	w35	"Just brilliant"
			loc	w36	"Just excellent"
			loc	w37	"Just fabulous"
			loc	w38	"Just genius"
			loc	w39	"Just great"
			loc	w40	"Just incredible"
			loc	w41	"Just incredible"
			loc	w42	"Just magnificent"
			loc	w43	"Just marvelous"
			loc	w44	"Just masterful"
			loc	w45	"Just outstanding"
			loc	w46	"Just phenomenal"
			loc	w47	"Just remarkable"
			loc	w48	"Just stupendous"
			loc	w49	"Just superb"
			loc	w50	"Just terrific"
			loc	w51	"Just unbelievable"
			loc	w52	"Just wonderful"
			loc	w53	"Me likey"
			loc	w54	"Nice job"
			loc	w55	"Nice work"
			loc	w56	"Take a bow"
			loc	w57	"Take a bow"
			loc	w58	"Top notch"
			loc	w59	"Truly exceptional"
			loc	w60	"Way to go"
			loc	w61	"Way to use your head"
			loc	w62	"Well done"
			loc	w63	"You are amazing"
			loc	w64	"You are great"
			loc	w65	"So sick bro"
			loc	w66	"You should be proud"
			loc	w67	"You're a natural"
			loc	w68	"You're a star"
			loc	w69	"You're amazing"
			loc	w70	"You're awesome"
			loc	w71	"You're incredible"
			loc	w72	"You're number one"
			loc	w73	Amazing
			loc	w74	Awesome
			loc	w75	Beautiful
			loc	w76	Bravo
			loc	w77	Brilliant
			loc	w78	Cool
			loc	w79	Creative
			loc	w80	Excellent
			loc	w81	Fabulous
			loc	w82	Genius
			loc	w83	Gnarly
			loc	w84	Good
			loc	w85	Great
			loc	w86	Groovy
			loc	w87	Incredible
			loc	w88	Inspired
			loc	w89	Magnificent
			loc	w90	Marvelous
			loc	w91	Masterful
			loc	w92	Neato
			loc	w93	Nice
			loc	w94	Outstanding
			loc	w95	Phenomenal
			loc	w96	Rad
			loc	w97	Remarkable
			loc	w98	Siiiick
			loc	w99	Stupendous
			loc	w100	Super
			loc	w101	Superb
			loc	w102	Sweet
			loc	w103	Terrific
			loc	w104	Tight
			loc	w105	Unbelievable
			loc	w106	Wonderful
			loc	w107	"A+ work"
			loc	w108	"Absolutely amazing"
			loc	w109	"Absolutely awesome"
			loc	w110	"Absolutely beautiful"
			loc	w111	"Absolutely brilliant"
			loc	w112	"Absolutely excellent"
			loc	w113	"Absolutely fabulous"
			loc	w114	"Absolutely genius"
			loc	w115	"Absolutely great"
			loc	w116	"Absolutely incredible"
			loc	w117	"Absolutely magnificent"
			loc	w118	"Absolutely marvelous"
			loc	w119	"Absolutely masterful"
			loc	w120	"Absolutely outstanding"
			loc	w121	"Absolutely phenomenal"
			loc	w122	"Absolutely remarkable"
			loc	w123	"Absolutely stupendous"
			loc	w124	"Absolutely superb"
			loc	w125	"Absolutely terrific"
			loc	w126	"Absolutely unbelievable"
			loc	w127	"Absolutely wonderful"
			loc	w128	"Brilliantly handled"
			loc	w129	"Excellent work"
			loc	w130	"Good job"
			loc	w131	"Good work"
			loc	w132	"Great job"
			loc	w133	"Hats off to you"
			loc	w134	"High five"
			loc	w135	"I expected no less of a genius"
			loc	w136	"Thumbs up"
			loc	w137	"It's a masterpiece"
			loc	w138	"Just amazing"
			loc	w139	"Just amazing"
			loc	w140	"Just awesome"
			loc	w141	"Just beautiful"
			loc	w142	"Just brilliant"
			loc	w143	"Just excellent"
			loc	w144	"Just fabulous"
			loc	w145	"Just genius"
			loc	w146	"Just great"
			loc	w147	"Just incredible"
			loc	w148	"Just incredible"
			loc	w149	"Just magnificent"
			loc	w150	"Just marvelous"
			loc	w151	"Just masterful"
			loc	w152	"Just outstanding"
			loc	w153	"Just phenomenal"
			loc	w154	"Just remarkable"
			loc	w155	"Just stupendous"
			loc	w156	"Just superb"
			loc	w157	"Just terrific"
			loc	w158	"Just unbelievable"
			loc	w159	"Just wonderful"
			loc	w160	"Like a modern-day Joan of Arc"
			loc	w161	"Nice job"
			loc	w162	"Nice work"
			loc	w163	"Take a bow"
			loc	w164	"Top notch"
			loc	w165	"Truly exceptional"
			loc	w166	"Way to go"
			loc	w167	"Way to use your head"
			loc	w168	"Well done"
			loc	w169	"You are amazing"
			loc	w170	"You are great"
			loc	w171	"You should be proud"
			loc	w172	"You're a natural"
			loc	w173	"You're a star"
			loc	w174	"You're amazing"
			loc	w175	"You're awesome"
			loc	w176	"You're incredible"
			loc	w177	"You're number one"
			loc	w178	Amazing
			loc	w179	Awesome
			loc	w180	Beautiful
			loc	w181	Bravo
			loc	w182	Brilliant
			loc	w183	Cool
			loc	w184	"You've got a gift for this"
			loc	w185	Excellent
			loc	w186	Fabulous
			loc	w187	Genius
			loc	w188	"The hero of our generation"
			loc	w189	Good
			loc	w190	Great
			loc	w191	Incredible
			loc	w192	Inspired
			loc	w193	Magnificent
			loc	w194	Marvelous
			loc	w195	Masterful
			loc	w196	"An inspiration to us all"
			loc	w197	Nice
			loc	w198	Outstanding
			loc	w199	Phenomenal
			loc	w200	"Proud of you"
			loc	w201	Remarkable
			loc	w202	Stupendous
			loc	w203	Super
			loc	w204	Superb
			loc	w205	Sweet
			loc	w206	Terrific
			loc	w207	"You've done it again"
			loc	w208	Unbelievable
			loc	w209	Wonderful
			loc	w210	"How do you do it?"
		}
		else{
			loc	w0	Terrible
			loc	w1	Awful
			loc	w2	Useless
			loc	w3	Lowly
			loc	w4	Bad
			loc	w5	The worst
			loc	w6	Scum
			loc	w7	Disgusting
			loc	w8	Fail
			loc	w9	Disastrous
			loc	w10	Horrendous
			loc	w11	How poor
			loc	w12	How inferior
			loc	w13	Unsatisfactory
			loc	w14	Inadequate
			loc	w15	Unacceptable
			loc	w16	Deficient
			loc	w17	Faulty
			loc	w18	Shoddy
			loc	w19	Substandard
			loc	w20	Worthless
			loc	w21	What junk
			loc	w22	How could you
			loc	w23	Unthinkable
			loc	w24	Try to not do so terribly next time
			loc	w25	And I trusted you
			loc	w26	Despicable
			loc	w27	Scum of the earth
			loc	w28	Unforgivable
			loc	w29	I don't think you deserve to have STATA installed on your computer
			loc	w30	You deserve an error code of your own
			loc	w31	Just awful
			loc	w32	Simply terrible
			loc	w33	Simply awful
			loc	w34	Simply useless
			loc	w35	Absolutely terrible
			loc	w36	Absolutely awful
			loc	w37	Absolutely useless
			loc	w38	Just disgusting
			loc	w39	Just disastrous
			loc	w40	Just horrendous
			loc	w41	What were you thinking
			loc	w42	Just no
			loc	w43	Simply disgusting
			loc	w44	So much fail
			loc	w45	Just unacceptable
			loc	w46	Absolutely the worst
			loc	w47	Absolute scum
			loc	w48	Simply disastrous
			loc	w49	Simply horrendous
			loc	w50	How worthless
			loc	w51	Just unthinkable
			loc	w52	An absolute fail
			loc	w53	Absolutely disastrous
			loc	w54	Absolutely horrendous
			loc	w55	Just unforgivable
			loc	w56	Just despicable
			loc	w57	Simply despicable
			loc	w58	Simply unforgivable
			loc	w59	Absolutely despicable
			loc	w60	Absolutely unforgivable
			loc	w61	Simply unsatisfactory
			loc	w62	Simply inadequate
			loc	w63	Simply unacceptable
			loc	w64	Simply worthless
			loc	w65	Absolutely unsatisfactory
			loc	w66	Absolutely inadequate
			loc	w67	Absolutely unacceptable
			loc	w68	Absolutely worthless
			loc	w69	Terrible
			loc	w70	Awful
			loc	w71	Useless
			loc	w72	Lowly
			loc	w73	Bad
			loc	w74	The worst
			loc	w75	Scum
			loc	w76	Disgusting
			loc	w77	Fail
			loc	w78	Disastrous
			loc	w79	Horrendous
			loc	w80	How poor
			loc	w81	How inferior
			loc	w82	Unsatisfactory
			loc	w83	Inadequate
			loc	w84	Unacceptable
			loc	w85	Deficient
			loc	w86	Faulty
			loc	w87	Shoddy
			loc	w88	Substandard
			loc	w89	Worthless
			loc	w90	What junk
			loc	w91	How could you
			loc	w92	Unthinkable
			loc	w93	Try to not do so badly next time
			loc	w94	And I trusted you
			loc	w95	Despicable
			loc	w96	Scum of the earth
			loc	w97	Unforgivable
			loc	w98	Just terrible
			loc	w99	Just awful
			loc	w100	Simply terrible
			loc	w101	Simply awful
			loc	w102	Simply useless
			loc	w103	Absolutely terrible
			loc	w104	Absolutely awful
			loc	w105	Absolutely useless
			loc	w106	Just disgusting
			loc	w107	Just disastrous
			loc	w108	Just horrendous
			loc	w109	What were you thinking
			loc	w110	Just no
			loc	w111	Simply disgusting
			loc	w112	So much fail
			loc	w113	Just unacceptable
			loc	w114	Absolutely the worst
			loc	w115	Absolute scum
			loc	w116	Simply disastrous
			loc	w117	Simply horrendous
			loc	w118	How worthless
			loc	w119	Just unthinkable
			loc	w120	An absolute fail
			loc	w121	Absolutely disastrous
			loc	w122	Absolutely horrendous
			loc	w123	Just unforgivable
			loc	w124	Just despicable
			loc	w125	Simply despicable
			loc	w126	Simply unforgivable
			loc	w127	Absolutely despicable
			loc	w128	Absolutely unforgivable
			loc	w129	Simply unsatisfactory
			loc	w130	Simply inadequate
			loc	w131	Simply unacceptable
			loc	w132	Simply worthless
			loc	w133	Absolutely unsatisfactory
			loc	w134	Absolutely inadequate
			loc	w135	Absolutely unacceptable
			loc	w136	Absolutely worthless
			loc	w137	Terrible
			loc	w138	Awful
			loc	w139	Useless
			loc	w140	Lowly
			loc	w141	Bad
			loc	w142	The worst
			loc	w143	Scum
			loc	w144	Disgusting
			loc	w145	Fail
			loc	w146	Disastrous
			loc	w147	Horrendous
			loc	w148	How poor
			loc	w149	How inferior
			loc	w150	Unsatisfactory
			loc	w151	Inadequate
			loc	w152	Unacceptable
			loc	w153	Deficient
			loc	w154	Faulty
			loc	w155	Shoddy
			loc	w156	Substandard
			loc	w157	Worthless
			loc	w158	What junk
			loc	w159	How could you
			loc	w160	Unthinkable
			loc	w161	Try to not do so poorly next time
			loc	w162	And I trusted you
			loc	w163	Despicable
			loc	w164	Scum of the earth
			loc	w165	Unforgivable
			loc	w166	Just terrible
			loc	w167	Just awful
			loc	w168	Simply terrible
			loc	w169	Simply awful
			loc	w170	Simply useless
			loc	w171	Absolutely terrible
			loc	w172	Absolutely awful
			loc	w173	Absolutely useless
			loc	w174	Just disgusting
			loc	w175	Just disastrous
			loc	w176	Just horrendous
			loc	w177	What were you thinking
			loc	w178	Just no
			loc	w179	Simply disgusting
			loc	w180	So much fail
			loc	w181	Just unacceptable
			loc	w182	Absolutely the worst
			loc	w183	Absolute scum
			loc	w184	Simply disastrous
			loc	w185	Simply horrendous
			loc	w186	How worthless
			loc	w187	Just unthinkable
			loc	w188	An absolute fail
			loc	w189	Absolutely disastrous
			loc	w190	Absolutely horrendous
			loc	w191	Just unforgivable
			loc	w192	Just despicable
			loc	w193	Simply despicable
			loc	w194	Simply unforgivable
			loc	w195	Absolutely despicable
			loc	w196	Absolutely unforgivable
			loc	w197	Simply unsatisfactory
			loc	w198	Simply inadequate
			loc	w199	Simply unacceptable
			loc	w200	Simply worthless
			loc	w201	Absolutely unsatisfactory
			loc	w202	Absolutely inadequate
			loc	w203	Absolutely unacceptable
			loc	w204	Absolutely worthless
			loc	w205	Terrible
			loc	w206	Awful
			loc	w207	Useless
			loc	w208	Lowly
			loc	w209	Bad
			loc	w210	Just terrible
		}
	}

	loc n = int((210)*runiform())

	if "`not'" == ""{
		if "`smiley'"!=""{
			loc poop = length("`w`n''")+2
			local mystring : display _dup(`poop') "_"
			local mystring2 : display _dup(`poop') " "
			noi di "   ___________" _n "  /           \" _n " /             \" ///
				_n "|   /\     /\   |   `mystring'" _n "|               |  |`mystring2'|" ///
				_n "|    _______    |  | `w`n''!|" _n " \   \_____/   /  <`mystring'_|" _n "  \___________/"
		}
		else{
			noi di "`w`n''!"
		}
	}
	else{
		if "`smiley'"!=""{
			if "`evil'"!=""{
				loc evil as err
			}
			loc poop = length("`w`n''")+4
			local mystring : display _dup(`poop') "_"
			local mystring2 : display _dup(`poop') " "
			noi di `evil' "   ___________" _n "  /           \" _n " /             \" ///
				_n "|   \/     \/   |   `mystring'" _n "|               |  |`mystring2'|" ///
				_n "|     _____     |  | `w`n''...|" _n " \   /_____\   /  <`mystring'_|" _n "  \___________/"
		}
		else{
			noi di "`w`n''..."
		}
	}
	return local phrase `w`n''
end