program test02
 implicit none
 integer i
 character(len=100) S
 integer x

 read *, S

 S=trim(S)
 x=len_trim(S)
!print *, x

 do i=1,x
  write (*,fmt='(A)',advance='no') 'x'
 end do

endprogram test02
