21 lines
534 B
Text
21 lines
534 B
Text
BEGIN
|
|
FILE str file;
|
|
STRING mhl;
|
|
associate( str file, mhl );
|
|
|
|
STRING extra := "little";
|
|
TO 2 DO
|
|
putf( str file, ( $"Mary had a "g" lamb."$, extra ) );
|
|
print( ( "1 result is: {{", mhl, "}}", newline ) );
|
|
mhl := "";
|
|
"supposedlly-" +=: extra
|
|
OD;
|
|
|
|
FORMAT extraf := $"little"$;
|
|
TO 2 DO
|
|
putf( str file, ( $"Mary had a "f(extraf)" lamb."$ ) );
|
|
print( ( "2 result is: {{", mhl, "}}", newline ) );
|
|
mhl := "";
|
|
extraf := $"medium-sized"$
|
|
OD
|
|
END
|