RosettaCodeData/Task/String-append/Seed7/string-append.seed7

$ include "seed7_05.s7i";

const proc: main is func
  local
    var string: str is "12345678";
  begin
    str &:= "9!";
    writeln(str);
  end func;