%ra
correct(String) :-
    name(String, CodeList),
    maplist( number_to_character,
       CodeList, Characters ),
	   	conc(S,[r,a],Characters),
		atomic_list_concat(S,S1),
		atomic_list_concat([r,a],S2),
		write(S1),write(' '),write(S2),!.
		
		
		
%anja (انجا) if("anja") then "anja"
correct(String,S2) :-
        string_chars(String,Characters),
	   	append([a,n,j,a],_,Characters),
		atomic_list_concat([a,n,j,a],S2).


		
%chra
correct(String) :-
    name(String, CodeList),
    maplist( number_to_character,
       CodeList, Characters ),
	   	conc([c,h,r,a],_,Characters),
		atomic_list_concat([c,h,r,a],S1),
		write(S1),!.	


%chhar
correct(String) :-
    name(String, CodeList),
    maplist( number_to_character,
       CodeList, Characters ),
	   	conc([c,h,h,a,r],S,Characters),
		atomic_list_concat(S,S2),
		atomic_list_concat([c,h,h,a,r],S1),
		write(S1),write(' '),write(S2),!.