lines
left-uncons
pop-a
m:
    show-line
    push-a
    read-nums
    counter
    member
    inc
    times #(list)