perm filename TEST.SAI[USE,CSR]3 blob sn#275321 filedate 1977-04-12 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "test"
C00003 ENDMK
C⊗;
BEGIN "test"
define crlf="('15&'12)";

string procedure foo (value string x,y);
begin "foo"
string bar;
bar←bar&x&y;
return(bar);
end "foo";

print(foo("hi"," there"),crlf);
print(foo("try ","again"),crlf);
print(foo("the last","time"),crlf);
end "test";