program kao
character(1)::T1,T2
read(*,*)T1,T2
write(*,*)'(',T1,T2,T1,')/'
end program kao