remember(Sentence, Parse) :-
    remembered(Sentence, Parse), !.

remember(Sentence, Parse) :- 
    s(Parse, Sentence, []),
    assert(remembered(Sentence, Parse)).