$use Compare StdIO;

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