RosettaCodeData/Task/Reverse-a-string/Refal/reverse-a-string.refal

$ENTRY Go {
    = <Prout <Reverse 'asdf'>>;
};

Reverse {
    (e.X) = e.X;
    (e.X) s.C e.Y = <Reverse (s.C e.X) e.Y>;
    e.X = <Reverse () e.X>;
};