function reverse (s : string) : string
    var rs := ""
    for i : 0 .. length (s) - 1
        rs := rs + s (length (s) - i)
    end for
    result rs
end reverse

put reverse ("iterative example")
put reverse (reverse ("iterative example"))