LET i$ = "1"
FOR z = 1 TO 15
    PRINT i$
    LET o$ = ""
    FOR i = 1 TO LEN(i$)
        LET c = 1
        DO WHILE (i$)[i:i+1-1] = (i$)[i+c:i+c+1-1]
           LET c = c+1
        LOOP
        LET o$ = o$ & CHR$(c+48) & (i$)[i:i+1-1]
        LET i = i+c-1
    NEXT i
    LET i$ = o$
NEXT z
END