$use Compare StdIO ;

Main =   <PrintLN <Compare ('a') ('a') >>,
         <PrintLN <Compare ('a') ("a") >>,
         <PrintLN <Compare (34) ("a") >>,
         <PrintLN <Compare (('a')) ('a') >>;