|?- char_code(a, Code), write(Code).
97
Code = 97
yes