CLS

OPEN "input.txt" FOR INPUT AS #1

INPUT #1, s$

n = LEN(s$)

'FOR i = 1 TO LEN(s$)
'x$(i) = MID$(s$, i, 1)
'IF MID$(s$, i, 1) = x$(i) THEN PRINT "!"
'PRINT x$(i)
'NEXT

looper:
changed = 0

FOR i = 1 TO n - 1
IF MID$(s$, i, 1) = ">" AND MID$(s$, i + 1, 1) = "<" THEN : k = k + 1: z = i: GOSUB change
NEXT
IF changed = 1 GOTO looper
GOTO fin

change:
changed = 1
IF MID$(s$, z, 1) = "<" THEN
MID$(s$, z) = ">"
ELSE
MID$(s$, z) = "<"
END IF

IF MID$(s$, z + 1, 1) = "<" THEN
MID$(s$, z + 1) = ">"
ELSE
MID$(s$, z + 1) = "<"
END IF
RETURN

fin:
CLOSE #1
OPEN "output.txt" FOR OUTPUT AS #1
PRINT #1, k
 PRINT k
CLOSE #1
SYSTEM