% Strings

var word : string := ""

put "Enter your name"
get word

for i : 1 .. length (word)
    put word (1 .. i), " /"
end for

function reverse (word : string) : string
    var ans : string := ""
    for decreasing i : length (word) .. 1
        ans := ans + word (i)
    end for
    result ans
end reverse