$use Convert StdIO;

Main =
  "AB('cd" (XYZ) 'ef\'GH' (A 'B(C' "D)E") 'IJ)"klmn"' :: e1,
  <WriteLn e1>,
  <WriteLn <Read_Expr e1>>;