data "1001110011", "1110111011", "0010010010", "1010101010", "1111111111", "0100101101", "0100100", "101", "11", "00", "1", ""

sub rep$(c$, n)
    local r$, i

    for i = 1 to n
        r$ = r$ + c$
    next
    return r$
end sub

do
    read p$ : if p$ = "" break
    b$ = "" : l = len(p$) : m = int(l / 2)

    for i = m to 1 step -1
        t$ = left$(p$, i)
        s$ = rep$(t$, l / i + 1)
        if p$ = left$(s$, l) b$ = t$ : break
    next

    if b$ = "" then
        print p$, " is not a repeated string"
    else
        print p$, " is composed of ", b$, " repeated"
    end if
loop