Class new title: Substring
	subclassof: Array
	fields: 'data map'
	declare: ''

 t1 
	[data  (map  t1)]

 t1 _ t2 
	[data  map  t1 _ t2]

asStream 
	[map isIntervalBy1  [Stream new of: data from: map start to: map stop]
	Stream new of: self from: 1 to: map length]

data: t1 map: t2 
	[data _ t1.
	map _ t2]

length 
	[map length]

map [map]

species 
	[data species]

swap: t1 with: t2 | t3 
	[t3 _ map  t1.
	map  t1 _ map  t2.
	map  t2 _ t3]