%
%	Interchange a(i) and a(j)
%
var a: string:= "kcmgj"
var b: string
var i,j: int

put "enter a string"
get a

put "enter i and j"
get i, j

b := a(1..i-1) + a(j) + a(i+1..j-1) + a(i) + a(j+1..*)

put "original: ", a, ".  Exchanged i and j: ", b