%% goal: answer

answer :-
    char_code(Char, -1).