%begin
  %routinespec jim(%integer x, y, z)
  %routine fred(%integer i, j, k)
    jim(k,j,i)
  %end
  %routine jim(%integer p, q, r)
    p = q+r
  %end
  fred(11, 22, 33)
%endofprogram