var word : string := "Halloween"

put word (4)
put word (6 .. 9)

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

put reverse ("yag si raef")