( "meow" "woof" )
    inits
    tail
t2
catenate #(list+list)
swap
lines
enumerate
    last
b1
sort #(list,block)
zip
sort #(list)
m:
    last
    new-line