starts(Atom,Character) :- prefix(Atom, Character).

starts('a', 'abc').