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