program  main
  implicit none

  character ( len = 100 ) :: ss
  integer :: crln, i

  read *, ss

  ss = trim ( ss )
  crln = len_trim ( ss )

  do i = 1, crln
     ss ( i:i ) = "x"
  end do

  print *, ss

end program main
