$use Compare StdIO;

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