procedure main()
    a := "qwerty"
    b := a
    b[2+:4] := "uarterl"
    write(a," -> ",b)
end