#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);
  auto void JIM(int P, int Q, int R);

  //     2    %routinespec jim(%integer x, y, z)
  //     3    %routine fred(%integer i, j, k)

  void FRED(int I, int J, int K) {
    //     4      jim(k,j,i)

    JIM(K, J, I);

    //     5    %end

    return;
  } /* end of FRED */

  //     6    %routine jim(%integer p, q, r)

  void JIM(int P, int Q, int R) {
    //     7      p = q+r

    P = Q + R;

    //     8    %end

    return;
  } /* end of JIM */

  //     9    fred(11, 22, 33)

  FRED(11, 22, 33);

  //    10  %endofprogram

  _imp_stop(0);
  return 0;
end_0:;
}