$use Convert;
$use StdIO;
$use String;

$string SSS;

$func  Display-String sS = ;

Main = {
  <String 'abcdef'> :: sS1,
  <Display-String sS1>,
  <String 'X' sS1 'Y' sS1> :: sS2,
  <Display-String sS2>,
  <String-Replace sS1 sS2 'Q' sS1>,
  <Display-String sS1>,
  <String-Fill sS1 '+'>,
  <Display-String sS1>,
  <Substring sS1 2 3> :: sS3,
  <Display-String sS3>,
  <String '012345'> :: sS4,
  <WriteLN <String-Ref sS4 4>>,
  <Substring-Fill sS4 2 3 '*'>,
  <Display-String sS4>,
  <String-Init &SSS 3 '$'>,
  <Display-String &SSS>,
  <String-Set &SSS 1 '+'>,
  <Display-String &SSS>,
    = ;  
};

Display-String {sS = <WriteLN <To-Chars sS>>; };