$use StdIO Table;

$table T;

$func Delete ex = ;

Main =
  <Bind &T ('StdIn') ()>,
  <Bind &T ('StdOut') ()>,
  <Bind &T ('StdErr') ()>,
  <Bind &T ('Channel') ()>,
  <Bind &T ('Open-File') ()>,
  <Bind &T ('Print') ()>,
  <Bind &T ('PrintLN') ()>,
  <Bind &T ('Close-Channel')()>,
  <PrintLN <Domain &T>>,
  <Delete <Domain &T>>; 


Delete 
{  /*empty*/ = ;
  (ex) ey = <Unbind &T ex> <Delete ey>;
};