reverse = proc (s: string) returns (string)
    rslt: array[char] := array[char]$predict(1,string$size(s))
    for c: char in string$chars(s) do
        array[char]$addl(rslt,c)
    end
    return(string$ac2s(rslt))
end reverse

start_up = proc ()
    po: stream := stream$primary_output()
    stream$putl(po, reverse("!dlrow ,olleH"))
end start_up