$use Table StdIO;
$table F;

Main = <Bind &F ('A') ('B')>
       <Bind &F ('as') ('ccc')>
       <Bind &F ('V') ('1')>
       <PrintLN <Domain &F>>
       <PrintLN <Lookup &F 'A'>>
       <Unbind &F 'A'>,
       { <In-Table? &F 'A'> =  <PrintLN <Lookup &F 'A'>>;
         <PrintLN <Lookup &F 'V'>>;
       };