A = 1
DO UNTIL LINES() = 0
    PARSE LINEIN L
    PUSH L
    A = A + 1
END
PULL
DO B = A-2 TO 1 BY -1
    PARSE PULL L
    SAY L
END