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"])