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