$use Table StdIO;
$table F;


Main = <Bind &F ('A') ('B')>
       <Bind &F ('as') ('ccc')>
       <Bind &F ('V') ('1')>
       <PrintLN <Domain &F>>,
       <Table-Copy &F> :: s1,
       <PrintLN <Lookup s1 'A'>>
       <PrintLN <Domain s1>>
       <Table>::s2,
       <PrintLN <Domain s2>>
       <Replace-Table s2 s1>
       <PrintLN <Domain s2>>;