$use Compare StdIO;

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

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