c::a$"\n" / cuts b::0,1+c / begins d::(#c)…
c::a$"\n" / cuts
b::0,1+c / begins
d::(#c),|/-':b / dims
i::x,j-b x:b'j / x y
j::*|k / insertion(from interval k)
s::i&s|i-w-2 / scroll
f:"" / findstring
g::a$f / find intervals