$use Compare StdIO;

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