"$"
split
dump
new-line
clean-split
    length
    dec
f2
swap
100
times #(list)
( "@i" )
split
swap
pair
transpose