answer(ok) :- seed(?x).