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