RosettaCodeData/Task/Increment-a-numerical-string/Metafont/increment-a-numerical-string.metafont

string s;
s := "1234";
s := decimal(scantokens(s)+1);
message s;