%external %integer %function muldiv(%integer x, m, d)
   *=16_48E7;*=16_0E00;*=16_4246;*=16_2600;
   *=16_6A06;*=16_4480;*=16_2600;*=16_4646;
   *=16_2801;*=16_6A06;*=16_4481;*=16_2801;
   *=16_4646;*=16_4A82;*=16_6A04;*=16_4482;
   *=16_4646;*=16_C6C4;*=16_4844;*=16_4840;
   *=16_C8C0;*=16_4843;*=16_3A00;*=16_CAC1;
   *=16_D645;*=16_4245;*=16_4845;*=16_D985;
   *=16_4840;*=16_4841;*=16_C2C0;*=16_D641;
   *=16_4241;*=16_4841;*=16_D981;*=16_4843;
   *=16_7000;*=16_7A20;*=16_9882;*=16_6402;
   *=16_D882;*=16_E390;*=16_E38B;*=16_E394;
   *=16_55CD;*=16_FFF2;*=16_6518;*=16_4A46;
   *=16_660A;*=16_4680;*=16_4CDF;*=16_0070;
   *=16_4E5D;*=16_4E75;*=16_5280;*=16_4CDF;
   *=16_0070;*=16_4E5D;*=16_4E75;*=16_003C;
   *=16_0002;*=16_4CDF;*=16_0070;*=16_4E5D;
   *=16_4E75;
   %result = x
%end
%end %of %file