$use Compare StdIO;

Main = { <"/=" ('a') ('a') >;
         <PrintLN 'fail: (\'a\') /= (\'a\')'>;
       },
       { <"/=" ('a') ('b')>;
         <PrintLN 'fail: (\'a\') /= (\'b\')'>;
       },
       { <"/=" ('a') (('a'))>;
         <PrintLN 'fail: (\'a\') /= ((\'a\'))'>;
       };