#!/usr/bin/perl
# Akalia by METALISTA
# perl version by gf
# What are you looking at????

@data_opredelenia = qw(
 цъфнал рошав рунтав мазен смачкан перкулясъл гърбав напикан амбициозен уродлив нахакан
 надут прецакан плешив изродлив измамен смотан пекан щурав недодялан надървен изпраскан напращял
 едрогърд нагъзен изнасилен шибан озверен брадясал изпърдян преебан обладан опасен заблуден изкрейзъл
 изпаднал елитен професионален неотразим надървен изпечен олайнявен наебан преебан обладан
 скъсан олайнян разебан недостижим debug-нат хакнат прецакан изперкал перкулясал откачен
 парализиран ароматизиран смърдящ смрадлив надрискан посран онаниращ превъртял изпедерастял
 безобиден спонсориран компилиран нахакан поумнял
);

@data_skazuemo = (
 'се перчи на', 'се ебава с', 'обезкостява', 'преебава', 'си го ближе пред', 'прави свирки на',
 'скубе', 'се шашка от', 'се радва на', 'се влюбва в', 'си бие чикии с', 'си прави пишки с',
 'се дърви на', 'плаче за', 'рунтавее пред', 'ближе хуя на', 'не дава на', 'грухти на', 'духа на',
 'напъва анално', 'се изхвърля пред', 'се хили на', 'изнасилва', 'иска да ебе', 'саска с',
 'се шиба с', 'го навира на', 'го втъква на', 'го нашибва на', 'го вкарва на', 'изпикава',
 'си го изправя пред', 'го начуква на', 'го набива на', 'изпърдява анално', 'забременява от',
 'се самопреебава заради', 'издухва екстрите на', 'се устемява страстно към', 'онанира пред',
 'мастурбира под носа на', 'прави анален секс с', 'иска да се ебе с', 'хваща за шнура',
 'драйфа в гъза на', 'го натриса на', 'си го мятка пред', 'го вкарва на', 'скъсва на задна прашка',
 'съдира гъза на', 'го втъква анално на', 'духа на', 'го духа пред'
);

@data_sashtestvitelno = qw(
 кретен сопол олигофрен селянин дървар чикиджия кебап цирей мошеник грухтар тъпанар чукльо
 мърльо путьо бабичка циганин свирчо педал задник духльо грумулник педофил мангал идиот глупак
 простак баламурник пишляме вибратор сперматозоид перко гърбушко хуй мъдьо духач кретен ебач
 онанист друсар изрод дивак лайняр шибаняк мангасар задник копеле клитор драйфър пияндурник главорез
 старец дядка бабишкерница каратист некрофил ченге чеченец албанец косматко зъбатко ръбатко
 коминочистач минетчия гъз содомия манаф кирилизатор американец турчин паразит каналджия ДПС-ар
 СДС-ар гадняр садист мазохист онанист
);

@data_dopalnenie = (
 'Кумчо Вълчо', 'Кума Лиса', 'Тодор Живков', 'Баба Яга', 'Пепеляшка', 'Червената Шапчица', 'Спящата красавица',
 'Змей Горянин', 'чичо си', 'баба си', 'Касчей Безсмертний', 'Лайногризец Храбър', 'Палечко', 'Доктор Духни пишка от минетния център',
 'на майка си путката', 'на свако си чепа', 'твойта слива миризлива', 'ламята', 'Зайо Байо', 'Филип Димитров',
 'Ахмед Доган', 'Пидеразд Пидераздич', 'Цун Кай Хуй', 'Удзад Тигосложич', 'Цуни Микура', 'Лапни Михуя',
 'Фани Маза Шперца', 'Нашибиго Амаяко', 'Нагъзиго Додувара', 'бабината си трънкина', 'леля ти в устата',
 'Били Гейтс', 'Бил Клинтън', 'Моника Левински'
);

sub opredelenie() {
	($rod,$chlen) = @_; # $rod 1 - zhenski, 2 - sreden, $chlen 1 - kratyk
	$x = $data_opredelenia[rand($#data_opredelenia)];
	if ($rod == 0) {
		$x .= 'ата';
	} elsif ($rod == 1) {
		$x .= 'ото';
	} elsif ($rod == 2) {
		$x .= 'ия';
	} elsif ($chlen == 1) {
		$x .= 'ия';
	} else {
		$x .= 'ият';
	}
}

sub skazuemo() {
	return $data_skazuemo[rand($#data_skazuemo)];
}

sub sashtestvitelno() {
	return $data_sashtestvitelno[rand($#data_sashtestvitelno)];
}

sub podlog() {
	$x = &sashtestvitelno;
	$last = substr($x,-1,1);
	if ($last eq 'а') {
		$x = &opredelenie(1,0);
	} elsif ($last eq 'е') {
		$x = &opredelenie(2,0);
	} else {
		$x = &opredelenie(3,1);
	}
	return $x;
}

sub dopalnenie() {
	if (rand(10) % 2 == 0) {
		return $data_dopalnenie[rand($#data_dopalnenie)];
	} else {
		&podlog . ' ' . &sashtestvitelno;
	}
}

sub izrechenie() {
	$x = &podlog.' '.&skazuemo.' '.&dopalnenie;
	return $x;
}

print "Content-type: text/plain; charset=UTF-8\n\n";

for ($i=0;$i<40;$i++) {
	print &izrechenie;
	print "\n";
}