:- initialization(main). main :- number_chars(N,"'4"), write(N), nl.