begin
  routine do something(string(255)name fred)
    fred = "Oh boy, this is fun!"
  end

  string(255) jim = "Well, that was unexpected"

  do something(jim)

  printstring(jim); newline

endofprogram