# define S(M, L, N, R) J(M, P) (L, N, R ) # define QL(L, R)/* L,*/QR(L, /*N,*/ R)// # define P( L, N, R) L, N, R// # define LP( L, N, R) U L, D L, (N, R) # define R( L, R)W (Y(J(E,X)(K(L, R )))) # define RP( L, N, R)(L, N), H R, T R// # define HP( L, N, R) L, N, R// # define K( L, R)/* L,*/J(F, V)(L, R)J \ ( Q,sym_ ( K, M ( L, B R))) (L, R ) # define Q( L, R)/* L,*/QR(L, /*N,*/ R)// # define E( X)E3(X) # define break H , # define E0(/**/X)X # define I( X, E) K # define EX(X)E3(X) #define E1(_I_)E0 (E0(E0(E0(E0(E0(E0 (E0( _I_ )))))))) #define E2(_O_)E1 (E1(E1(E1(E1(E1(E1 (E1( _O_ )))))))) #define E3(_C_)E2 (E2(E2(E2(E2(E2(E2 (E2( _C_ )))))))) #define E4(_C_)E3 (E3(E3(E3(E3(E3(E3 (E3( _C_ )))))))) #define E5(_C_)E4 (E4(E4(E4(E4(E4(E4 (E4( _C_ )))))))) #define E6(_2_)E5 (E5(E5(E5(E5(E5(E5 (E5( _2_ )))))))) #define E7(_0_)E6 (E6(E6(E6(E6(E6(E6 (E6( _0_ )))))))) #define E8(_1_)E7 (E7(E7(E7(E7(E7(E7 (E7( _1_ )))))))) #define E9(_5_)E8 (E8(E8(E8(E8(E8(E8 (E8( _5_ )))))))) #define QS( L, R) (S (M( L, B R),\ A R , A J(G(L, _) ,B R), C R )) #define QR( L, R) I sym_(,)(O, (C, \ C)) (C J(G(L, _) ,B R),QS(L, R )) #define sym__(_ , __ ) _ #define A(A, B , C ) A #define F(A, _) sym_(_,) #define sym_(__ , _ ) _ #define B(A, B , C ) B #define J(A, J) G(A, J) #define sym___( ___, __) #define C(A, B , C ) C #define G(J, G) J ## G #define RY(Y) Y #define Y( Y) Y #define LY(Y) Y # define Z( L, R) J (B L, /*N,*/ Y) # define N( L, R) J (G(L, _), B R) # define HY(L ) (A L, halting) # define T( R, L) G(sym_, R)(L, (,)) # define H( R, L) G(sym_, R)(R, _ ) # define M( L, R) B J( G(L, _), R ) # define D( L, R) G(sym_, R)(R, _ ) # define U( L, R) G(sym_, R)(L, (,)) # define F0(L, R) F( L, /*N,*/R ) # define F1(L, R) F0( L, /*N,*/R)~ # define F2(L, R) F1( L, /*N,*\R)~ # define F3(L,*/R )R\t\t-> \ Z (/*)*/ N( L, R) , R) (N( L, R) )\n # define FV(L, R) F( L, /*N,*/R ) # define QH(L, R) QS( L, /*N,*/ R) int puts (char*); # define W(W)O(W) int main () {puts # define O(W)#W// ( R ( A, tape));}