| amida result |
amida := 'A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |'.

result := nil.
amida linesDo: [:line |
	result ifNil: [result := line subStrings] ifNotNil: [
		(2 to: line size by: 2) do: [:idx |
			(line at: idx) = $- ifTrue: [result swap: idx // 2 with: idx // 2 + 1]]]].
^result   "=> #('B' 'D' 'C' 'A' 'E') "