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