      PROGRAM piyo
      IMPLICIT NONE
      
      character(100) :: s
      integer :: l
      
      read*,s
      
      l = len_trim( s )
      
      print*,repeat('x',l)
      
      
      
      END PROGRAM