%% ?- answer.

answer :-
    char_code(Char, Code).