| 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') "