بر همگان روشن است که امر کباب، امری خطیر است که تنها توسط مردان و آن هم پس از سالها ممارست و کسب تجربه زیر نظر اساتید امر قابل اجراست. از آنجا که طی سالهای اخیر، نسوان به علت حضور گسترده در دانشگاه، به این نتیجهی قبیحه رسیدهاند که در این امر سری نهفته نیست، و هر کسی نیز ممکن است که بتواند سهمی در مراسم کباب جوجه و چنجه بر عهده داشته باشد، این حقیر بر آن شد که با ارائه آخرین متدولوژی کباب، دین خود را به جامعهی مردانه ادا نموده، و همچنین فاصلهی تکنولوژیک رجال را با نسوان، در این زمینه حفظ کند. تا که قبول افتد و چه در نظر آید.
Program machoKabaab;
Uses
Sikh,
Meat,
Manghal,
Zoghal,
machoMen,
Aragh,
Estekan,
KSher,
Namak
;
procedure SayKSher;
begin
HaveASipOfAragh;
ForgetMorality;
TellADegradingJoke;
end;
procedure IgniteManghal;
begin
UseZoghal;
InviteOthersToDoIt;
if TheyShowedAnyWeakness then
begin
Say('Agha joon zoghal rooshan kardan raa daare, ' +
'bezaa yaadet bedam!');
DoItYourselfExactlyLikeTheFailedMan;
end;
end;
procedure RotateSikhs;
begin
for each Sikh in SikhCollection do
Rotate180Degrees;
end;
procedure BadBezan;
begin
while not Bored do
begin
TurnFanLeft;
SayKSher;
TurnFanRight;
SayKSher;
end;
end;
procedure BekeshBeSikh(AType: TKabaabType);
begin
case AType of
ktBark: DoItSlowly;
ktJoojz: BragAboutYourSelf;
ktKoobide: KeepYourNoseOutOfIt;
ktGowje: TellAJoke;
end;
end;
begin
AskWomenForMeat;
if PoorWomenHaveForgottenSalt then
raise Exception.Create('Gofte boodam ke gooshto' +
'nabas daad daste zan...');
SayKSher;
HaveAnEstekOfAragh;
BekeshBeSikh(ktBark);
SayKSher;
IgniteManghal;
SetSikhsOnManghal;
while not KabaabIsReady do
begin
BadBezan;
SayKSher;
RotateSikhs;
BottomsUp;
GiveASikhToEachMan;
if KabaabIsAlmostReady then
begin
BekeshBeSikh(ktGowje);
SetSikhsOnManghal;
end;
end;
end.