program t implicit none character::T_1,T_2 read"(A)",T_1 read"(A)",T_2 print"(A)","("//T_1//T_2//T_1//")/" end program t