CLS
a = 0
OPEN "input.txt" FOR OUTPUT AS #1
PRINT #1, "3"
PRINT #1, "5 0"
PRINT #1, "5 7 0"
PRINT #1, "7 8 3 0"
CLOSE #1
OPEN "input.txt" FOR INPUT AS #1
PRINT a$
CLOSE #1
IF LEN(q$) > 1 THEN GOTO 2
FOR i = 1 TO 15
IF q$ = CHR$(i) THEN q = q - 1
NEXT
2 : IF q$ = "1" THEN q = 1
FOR k = 1 TO 15
q = k
IF q THEN c = q
NEXT
p = 1
r = 1
FOR i = 1 TO c
NEXT
DIM q$(15)
DIM q(15)
FOR i = 1 TO c
NEXT
OPEN "input.txt" FOR OUTPUT AS #1
IF a = 0 THEN PRINT "-1"
FOR z = 1 TO c
NEXT
CLOSE #1
t = 1
r = 1
FOR i = 1 TO c
'IF MID$(q$(i), 1, 1) <> "" THEN r$(t) = r$(t) + MID$(q$(i), 1, 1) ELSE t = t + 1
NEXT
SYSTEM