/* Rexx */

String = Reverse( 'ABC' )

If String \= 'CBA' then Say 'Incorrect'
Else Say 'Correct'

Exit

/* * */

Reverse: procedure
Arg String

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

