v( ";" )
m:
    dup
        read-nums
    m1
    flatten
    swap
    select
    new-line