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