11 lines
272 B
Text
11 lines
272 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
const string: original is "Mary had a X lamb";
|
|
const string: little is "little";
|
|
var string: replaced is "";
|
|
begin
|
|
replaced := replace(original, "X", little);
|
|
writeln(replaced);
|
|
end func;
|