$use Vector;
$use StdIO;

Main  = <Vector> :: s1,
        <Vector-Init s1 5 ('DDD')>
        <PrintLN "Vector-Init = " <Vector-To-Exp s1>>  
        <Vector-Replace s1 ('ABC') s1  >
        <PrintLN "\n Length=" <Vector-Length s1>>
        <PrintLN "Replace = " <Vector-To-Exp s1>>;