2:- module(utils, [read_string/1, is_positive_answer/1]). 3 4read_string(String) :- 5 read(Atom), 6 atom_string(Atom, String). 7 8is_positive_answer(String) :- 9 downcase_atom(String, DownCaseAtom), 10 atom_string(DownCaseAtom, DownCaseString), 11 member(DownCaseString, ["yeah", "yes", "sim"])