



















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 .





بر همگان روشن است که امر کباب، امری خطیر است که تنها توسط مردان و آن هم پس از سالها ممارست و کسب تجربه زیر نظر اساتید امر قابل اجراست. از آنجا که طی سال‌های اخیر، نسوان به علت حضور گسترده در دانشگاه، به این نتیجه‌ی قبیحه رسیده‌اند که در این امر سری نهفته نیست، و هر کسی نیز ممکن است که بتواند سهمی در مراسم کباب جوجه و چنجه بر عهده داشته باشد، این حقیر بر آن شد که با ارائه آخرین متدولوژی کباب، دین خود را به جامعه‌ی مردانه ادا نموده، و همچنین فاصله‌ی تکنولوژیک رجال را با نسوان، در این زمینه حفظ کند. تا که قبول افتد و چه در نظر آید.