/* REXX (OS/2) */
Parse arg filename
call stream filename, 'C', 'Open'
Do while Lines(filename)
  line = linein(filename)
  Parse value line with left ' ' right
  If left > right Then line = right || ' ' || left
  pos=stream(filename, 'C', 'Seek -'Length(line)+2)
  call lineout filename, line
End
call stream filename, 'C', 'Close'
Exit