%% goal: answer

answer :-
    char_code(Char, Code).