:- initialization(main). main :- number_chars(N,"0'\\x41\\"), write(N), nl.