begin

  routine test(integer i)
  end

  test(123)

endofprogram