begin
  routine fred(integer i)
    i = 1
  end
  fred(42)
endofprogram