//ГЕНЕРАТОР ЗЛА
//использует 3 цвета - серый, белый, красный

zlo_0 = ["JZT6E!!111"] //ОЯЕБУ!!111
zlo_1 = ["GSOOOOOOOOOOOOOOM"] //ПЫЩЩЩЩЩЩЩЩЩЩЩЩЩЩЬ
zlo_2 = ["GSOM!!11"] //ПЫЩЬ!!11
zlo_3 = ["NTKJBL"] //ТЕЛОИД
zlo_4 = ["CBCMRT11"] //СИСЬКЕ11
zlo_5 = ["CVJNHB 6FKTN, CERF!!111FLBY"] //СМОТРИ БАЛЕТ, СУКА!!111АДИН
zlo_6 = ["ZT6FYTQE RJNE!!"] //ЯЕБАНЕЙУ КОТУ!!
zlo_7 = ["\TRCNKTH"] //ЭЕКСТЛЕР
zlo_8 = ["NENCZ "] //ТУТСЯ 
zlo_9 = ["UKFYL\"] //ГЛАНДЭ
zlo_10 = ["B, LF! VS - T6FYEKBCM!!1"] // И, ДА! МЫ - ЕБАНУЛИСЬ!!1
zlo_11 = ["GTGZRF"] //ПЕПЯКА
zlo_12 = ["C.H.E. "] //С.Р.У. 
zlo_13 = ["%~GM T6HBKJ!!!!!"] //ЖЁПЬ ЕБРИЛО!!!!!
zlo_14 = ["%SDNJYT 4J4J EGZ4RF!!"] //ЖЫВТОНЕ ЧОЧО УПЯЧКА!!
zlo_15 = ["%F%F!"] //ЖАЖА
zlo_16 = ["GJGZ4NC!!!"] //ПОПЯЧТС!!!
zlo_17 = ["Z BLBJN!! E6TQNT VTYZ RNJ YB6ELM!!111"] //Я ИДИОТ!! УБЕЙТЕ МЕНЯ КТО НИБУДЬ!!111
zlo_18 = ["CDJ6JLF!HFDTYCNDJ!EGZ4RF!!11!"] //СВОБОДА!РАВЕНСТВО!УПЯЧКА!!11!
zlo_19 = ["EGZ4RJ4FN!"] //УПЯЧКОЧАТ!
zlo_20 = ["GJNC PJXDF4TY!!1"] //ПОТС ЗОХВАЧЕН!!1
zlo_21 = ["KE4B GJYJCF!!"] //ЛУЧИ ПОНОСА!!

//Пока что хватит

col_1 = "4" //белый
col_2 = "3" //черный
col_3 = "7" //красный
col_4 = "4" //белый
col_5 = "3" //черный
col_6 = "7" //красный

//loop i 40
//[
//alias rndcol = ( concatword col_ ( rnd 6 ))
//alias rndzlo = ( concatword zlo_ ( rnd 8 ))
//allstring = (concatword ($rndcol) ($rndzlo) )
i = 0;

luch_ponosa1 = 0;
luch_ponosa2 = 0;

while [ (< $i 40) ] [ i = (+ $i 1);

rndcol = ( concatword col_ ( rnd 6 ));
rndzlo = ( concatword zlo_ ( rnd 21 ));
luch_ponosa1 = ( concatword ($rndcol) ($rndzlo) ($luch_ponosa1) );

rndcol = ( concatword col_ ( rnd 6 ));
rndzlo = ( concatword zlo_ ( rnd 21 ));
luch_ponosa2 = ( concatword ($rndcol) ($rndzlo) ($luch_ponosa2) );

rndcol = ( concatword col_ ( rnd 6 ));
rndzlo = ( concatword zlo_ ( rnd 21 ));
luch_ponosa3 = ( concatword ($rndcol) ($rndzlo) ($luch_ponosa3) );

]

say $luch_ponosa1; say $luch_ponosa2; say $luch_ponosa3


//]