samples/alpha-mj-exp/gcd-proc-predef.mj

   1 program procgcdinput{
   2
   3         int gcd(int a, int b)
   4         {
   5                 while (a != b) {
   6                         if (a>b)
   7                                 a = a-b;
   8                         if (a<b)
   9                                 b = b-a;
  10                 }
  11                 return a;
  12         }
  13
  14         void main()
  15                 int a;
  16                 int b;
  17         {
  18                 print(gcd(12,8),3);
  19         }
  20 }