  Program Main

    Implicit None
    Character               :: S*100, num*3
    Character, Allocatable  :: X(:)*1
    Integer                 :: A,i

    Read(*,*) S

    A = Len_trim(S)
    Allocate (X(A))  ; X(:) ="x"

    Write(num,"(I3)") A
    Write(*,"("//num//"(a))")(X(i),i=1,A)

  End Program
