/* Rexx */

Say Reverse( 'ABC' )

Exit

/* * */

Reverse: procedure
Arg String

If String = '' then 
 Return ''
Else
 Return Substr( String, Length( String ), 1 ) || ,
        Reverse( Substr( String, 1, Length( String ) - 1 ) )

