(doseq [planet (take 1000 (filter #(if-not (or (< (count %) 4) (> (count %) 9) (re-find #"[AEIOUaeiou]{3}" %) (re-find #"y[aeiou]{2}" %) (re-find #"qu[yu]" %) (re-find #"[Ii][iyrl]" %) (re-find #"[^oai]uch" %) (re-find #"h[tcsz]h" %) (re-find #"[sz].[sz]" %) (re-find #"[rl].[rl]" %) (re-find #"[UIui][wy]" %)) %) (repeatedly (fn[] (clojure.string/capitalize (apply str(take(* 3(+ 1(rand-int 3))) (interleave (repeatedly #(if(<(rand-int 4)2) (apply str(concat(rand-nth[ [(rand-nth["b""d""g""c""f""t""sh""th""k"])(rand-nth["r"""""""""])] [(rand-nth["s""g""c""f""p""k"])(rand-nth["l"""""""""])] [(rand-nth["s""l""th""ch""sh""y""w""qu""z""v""m""n""t"])]]))) "")) (repeatedly #(rand-nth["a""e""i""a""o""e""i""u""a""o""e""i""eo""io""ai""ia""ia"])) (repeatedly #(if(<(rand-int 5)2) (rand-nth["s""t""n""s""t""n""n""p""m""b""g""d""lp""rm""rt""lm""zh""sk""z""z""st""h""ch""x"]) "")))))) ))))] (println planet))
Standard input is empty
Eolpo Eshee Niavo Nepgofost Banke Vevon Uditzeo Tisicham Celpthisi Astefai Itazh Thert Ainiata Ageo Athia Aifeox Egezia Amsod Gatai Wofushen Izhmea Oseplai Quoci Theo Oteo Iazo Oelio Apia Civo Berm Abio Daag Diasdia Fakeo Gabui Thalm Flao Gonex Osmin Aigi Viaslize Thabo Senese Ormkluhit Izhiolm Anoib Ofiani Sligiz Fegiapfia Ouham Ocaas Adiap Ifliez Sliag Viseo Biochyep Egeolp Fazaci Aged Ocintha Wait Iohu Desa Eholm Ithio Iocho Kiag Certosk Gupeb Omsia Ougias Tioszo Theochbra Saki Lutoeb Fiveo Nain Muzu Kliziolp Slezhios Ciochcu Echi Suzhiap Aeztia Beog Fliaco Aine Flozia Eosheech Cufufro Niastania Quopu Tooxo Cucla Echiafa Udkeb Nibenas Trih Negne Flishui Ovub Copiafan Keneo Afio Enshraina Tethe Cienket Ibetheox Clia Uasio Iate Eogelpa Vobkeus Aene Free Chatathe Droa Eosioye Ialp Iageno Potiax Dasian Ermtai Desemio Chia Isehezh Askiotheo Quastia Kiop Slin Noshungi Yeoge Zothiod Ermbrai Ibostiz Shosia Iosiag Thozce Mepchi Gigithe Ibpithras Thos Iteo Akred Egslih Iach Shania Wenseti Ioge Azofai Floce Ifoazh Iacatmet Kise Iande Ezka Diasgi Chibai Sligai Fepklixip Viapeo Iocla Lusio Etma Adraceo Gokato Tuce Kait Crezeox Tobizeo Pomo Fiateozh Calichiz Iozid Epiot Ziociacu Ihao Izfo Fodriso Agia Daag Nalmca Past Meosha Ezta Keochza Kigresi Famsia Weoxgle Afegu Azhdia Oshraig Kiga Ishias Shog Icialpech Flos Criag Meost Kaizhweo Fask Ceozu Acois Eodabro Daestkom Giashiata Diolp Shen Izseih Faina Ciosao Yicle Trafevo Giaptetai Sialpo Thruuge Onpiot Shri Achfas Poeskib Platumi Aisaa Coufa Pliachoe Pisix Eone Ikrame Osiorta Oppi Grafi Shat Atise Plesermon Thunaci Afid Biost Kiarti Yoskci Itask Ashie Meez Iviostme Kapi Wiageode Inmex Pipiatai Pefloget Sormian Aitfah Martealp Quecreo Craquazh Izhciost Facaig Pethiacah Okio Glipbeoto Trog Alpo Ianlabian Cialmtho Ozwod Iozset Aisapo Gibpa Gacholpit Epshrapo Agiaboh Acormpi Thifoah Achumelm Aene Geeza Aivenia Iolm Thriota Micra Shee Drabisu Giterma Bigraiced Liodo Emsi Kaez Naxkitiax Frikio Udiap Exetai Zomya Tebria Nose Fainist Gikap Thiz Uxthi Wulp Othi Weko Atquep Maikech Shooggin Gistid Begob Kenkida Udizpo Gebiotoz Wohanip Beepe Dofe Ficia Iarm Etwekolp Athiort Quendane Seog Ofaen Gaemeo Tadafliam Mios Izhipfa Ingip Shagi Fixe Krashan Iokruzax Sitioteo Chaa Amet Viaklaize Kexcolm Afaix Ahix Iezzias Faepia Pozchiade Uuge Thobri Elmiz Mepelpi Cizkexe Famgita Achit Tioglag Ihtreo Ciadi Aethiask Sian Isnee Eshria Astia Iacruxe Iozhiotsi Nosapia Azqua Sesku Sospist Fagrian Maeggloz Ogrist Efle Thai Aleos Eopai Dreteoxi Eovulm Creog Abshracaz Ican Iasa Ukiba Slai Onianshe Chati Femfe Egchopa Iortgin Piah Gopod Eoki Shan Istai Fliaci Othaert Kosk Gelet Fegde Sianim Oawe Iezplop Pithen Bagiata Ionbuo Iorttru Purto Iptid Edizh Iolp Ayich Wote Thop Gais Ihma Ikaalm Kleo Thachib Goch Kabeke Iofipioz Chosten Yortete Wovos Chau Sobfrinco Upcaibo Iapegi Kleongo Shai Thren Chaatia Todfankez Krug Almos Draidpia Klionpia Evike Paineiz Sebi Ecike Miab Giam Eohaica Plica Yozo Antesk Iabi Kiach Eoskistu Feni Eskfeofes Baifige Quart Shih Cacho Eazhbem Uzgriarti Osbragi Liet Cipshibeo Peolm Cigpeo Keost Aazpi Asai Saska Thart Geogezh Lize Cleo Kiaz Efappib Alas Iort Quet Mofa Euzh Weocheox Claig Ixshai Itthi Enioku Libigre Klionki Ciaz Flait Sliazert Eotoh Chiax Depiort Gaishez Tiodle Atquid Shamshae Eniaflai Iazhu Keedalp Otert Ermisge Aplio Thesfio Fiazh Fonain Oztheo Eobfaique Ovelp Yated Traeput Kasem Echai Fiazhgai Kiod Agaz Iachpolp Ezai Drameb Keonfa Bagi Thusdre Pidsa Tenucai Isiu Galm Iotogcug Elezhfeh Grexa Kuki Iozhe Aiga Iagfoa Aizh Fiche Slenusa Tebai Geon Ogagrech Taalp Ezcaifalm Vigiogi Othano Ziflaz Eklone Fithiab Athrikeo Tiopionai Gluis Choza Yazh Gria Keolpidun Biashaa Lanisk Estteosk Iozhceo Tuthe Izkaichia Shachfuh Oufaz Ainithe Feskuna Sheogagio Sica Niadslip Kartfo Askcai Ubzeem Cheo Fios Astao Iolp Thre Eokeo Thoztux Astfiatu Iathra Lidias Foorm Pioz Beezh Thai Grue Ethe Ustraozh Almtoen Iapun Emaziog Diagica Ofuab Fifon Matgegeb Ichedon Cosvid Shrezhkia Corm Oseomias Pian Aitdiarm Ibibia Eliah Diad Shai Biplaichi Palm Abat Teoyoswi Ozbrus Anut Icias Biazhbie Ogio Ceox Daiziano Itha Olmi Azhe Daisu Naum Elpkekio Icos Itriasiag Fielm Ibteormu Cortfai Oukup Ummithio Eopeci Fiuskde Thia Ididriam Achlae Thacim Vipid Ubai Goana Kuafed Euzh Uskae Maimai Cado Iagi Malp Tane Idoxthri Fleonazh Sigai Selmbep Peoncaalp Aflechio Iasae Zumfro Penest Thix Osle Yiatis Easio Fiasialm Enfeg Iplun Oermeg Eoske Shialaid Igem Enigkazh Cidi Ianfach Piska Tucain Aespai Chio Awudem Eiflo Zezhiazh Sacia Platto Agabtho Iasawe Laax Miochin Poakion Ostiort Clitaimim Exkia Ermoch Kuzhi Liarmnios Eothioz Quen Cask Safiosi Egra Aischot Citrona Tianeso Nahsetolp Driagcia Eogalm Shaztaske Cifeo Thoyezh Kizhviana Fialp Soye Eoquese Kegithos Azia Ianeon Yisi Lequi Emiad Ozklis Last Othovio Gizglai Vofeshe Uthia Estki Exihezh Ohmefaist Aigi Eslau Agua Dicoalp Iskti Kiah Ashiagi Adkiozo Deofitfa Otupe Echort Mice Viatuxsi Cuke Ciach Pite Iashon Panostiz Pisa Ethe Ossiade Aivano Aishi Aiga Chiaxslam Atusin Fekeoz Falpazhko Issio Eonshra Clikiap Sortgi Carm Geeclab Keozke Zotako Gretiab Wuzhpia Ches Iomat Iavai Yeopelma Yoma Iart Slapu Thou Opez Iacrusk Nelmpuex Aithiciat Liog Fuzu Italeo Thiagyask Aineb Shat Igfia Osle Paid Eosheet Zachcle Thaizhku Achi Seka Watitfe Taithe That Ermiagmi Ipiagio Eshan Piogin Igke Uchfloche Nesho Triaz Iulmid Ebit Ermeze Eoxa Soskiot Iorm Aniotob Gagai Pipiask Iacraid Ziotpa Sisholp Tiotegim Opopa Iaziad Gaamiart Cegoe Gusia Okeo Ocrea Axicib Fionee Eskriaso Assaneo Ketaxi Ezhioze Dias Golp Coki Agis Inich Chaawam Sheme Termme Gabgaso Choku Neokiati Shefad Thiazchi Feku Ibthiog Iepa Owas Triazai Ekrafeo Acez Uticos Infed Isla Ikahki Clep Ennaih Sinfezhpi Ozhi Emzi Brikiko Pegce Aoboh Fliodabso Fiom Talm Boxiske Thad Dezh Ignepslos Tagaich Faig Aifarm Esaine Pezh Etpea Oaxi Ceosonken Enpiep Colpiaso Inodex Clobaa Caifia Klob Iadshu Thiatsias Suiplem Urmio Sheogo Ertia Eohaxshai Shratelm Diapkia Ainim Ketheoz Izhesk Eshizin Aebyu Thibcai Giot Ofroshi Aitazhi Thianma Edoi Sartania Naimu Shogitha Quoseo Niat Amix Oben Armegdai Efri Iako Quermgo Boziod Iech Shio Gafiarmen Thres Lonainzia Ialotan Eoka Kiahia Shes Oanais Owiabio Thiskroch Feon Miastach Iazhid Eshiske Dozia Armi Ipvo Itklo Yitmia Aipast Carm Shifiz Chid Fosia Pafia Igyask Tizin Inaklialm Kiobfios Neolai Ixbaz Itviola Kort Papei Iatoz Soya Lainozi Celm Thagia Chiathin Efeoket Anermzio Brikeofan Eneni Iakia Ishia Ezthis Miorm Upiarmthe Alpcedi Tedo Olpshia Zazh Edcige Saniabeo Obkib Nuigag Quet Eobih Meose Tolm Fiamfi Ofobos Shioz Brez Shishia Akufo Kashi Sheo Kiohem Askech Ootiach Sheog Isipo Alpshiz Onosk Eskigia Esempon Ehehlid Faigiolm Fetgeox Yagrua Cheonta Ikaivusk Thia Idfras Epib Adiorm Cofameb Osliz Achee Yiskli Setriolm Thia Lothiz Lodiathro Eortei Thie Bapemkai Thropisia Ebithia Ovio Fraglezh Quesatot Cheo Thes