RosettaCodeData/Task/Copy-a-string/Metafont/copy-a-string.metafont

string s, a;
s := "hello";
a := s;
s := s & " world";
message s;  % writes "hello world"
message a;  % writes "hello"
end