RosettaCodeData/Task/Reverse-a-string/Pop11/reverse-a-string.pop11

define reverse_string(s);
    lvars i, l = length(s);
    for i from l by -1 to 1 do
        s(i);
    endfor;
    consstring(l);
enddefine;