$use Compare StdIO Box;

Main = { <"<" (<Box 0>) (<Box 23>) >;
         <PrintLN 'fail'>;
       };