line-mode
v( ";" )
right-uncons
swap
4
times #(list)
    head
    over
    member
f3
nip
last
read-num