$use StdIO;

$func D e = e;

D {
  'Y' e2 = '\n' <D e2>;
  'X' t1 e2 = '\'' t1 '\'' <D e2>;
  '@' e2 = '\'' <D e2>;
  '%' e2 = '\\' <D e2>;
  t1 e2 = t1 <D e2>;
  = ;
};

$const A = '\';\n\nMain = <PrintLn <D &B> &B &A>;';

$const B = '$use StdIO;YY$func D e = e;YYD {Y  XY e2 = @%n@ <D e2>;Y  XX t1 e2 = @%@@ t1 @%@@ <D e2>;Y  X@ e2 = @%@@ <D e2>;Y  X% e2 = @%%@ <D e2>;Y  t1 e2 = t1 <D e2>;Y  = ;Y};YY$const A = @%@;%n%nMain = <PrintLn <D &B> &B &A>;@;YY$const B = @';

Main = <PrintLn <D &B> &B &A>;