Vocabulary
documents.private

Inputs
linesan object
locan object


Outputs
locan object


Definition


:: text+loc ( lines loc -- loc )
lines length 1 =
[ loc first2 ] [ loc first lines length 1 - + 0 ] if
lines last length + 2array ;