RosettaCodeData/Task/Copy-a-string/Sather/copy-a-string.sa

class MAIN is
  main is
    s  ::= "a string";
    s1 ::= s;
    -- s1 is a copy
  end;
end;