RosettaCodeData/Task/Reverse-a-string/Aime/reverse-a-string.aime

text
reverse(text s)
{
    data b;
    integer i;

    i = length(s);
    while (i) {
        i -= 1;
        b_insert(b, -1, s[i]);
    }

    return b_string(b);
}

integer
main(void)
{
    o_text(reverse("Hello, World!"));
    o_byte('\n');

    return 0;
}