$use Compare StdIO;

Main =
  <PrintLN AAA ' ' <Compare (AAA) (XXX)> ' ' XXX>,
  <PrintLN 123 ' ' <Compare (123) (456)> ' ' 456>;