implicit none integer(8) a,b character(1) e,m,l,n read(*,*) e read(*,*) m write (*,*) "(",e,m,e,")/" end