OPEN "INPUT.TXT" FOR INPUT AS #1
OPEN "OUTPUT.TXT" FOR OUTPUT AS #2
DIM V AS LONG
V = 0
P = 0

DO UNTIL EOF(1)
S$ = INPUT$(1, #1)
IF S$ = ">" THEN P = P + 1
IF S$ = "<" THEN V = V + P
LOOP

PRINT #2, V

CLOSE #1, #2
SYSTEM