%begin
  %routine fred(%integer i, j, k)
    i = j+k
  %end
  fred(11, 22, 33)
%endofprogram