trunc.gs2c

lines
#["This is some very long text.","25"]

extract-array
#"This is some very long text."
#"25"

read-num
#"This is some very long text."
#25

over
length
#"This is some very long text."
#25
#28

over
gt
#"This is some very long text."
#25
#1

#{
#	"This is some very long text."
#	25

 	2
 	sub
 	take
#	"This is some very long "

 	f( "].*[ -]|.*" )
#	"This is some very long "

 	init
#	"This is some very long"

 	"..." 0
#	"This is some very long"
#   "..."
#	0
#} when
block7 when

pop