Hello. Is this suitable as a reply?
%%% show lists
?- listing.
data([hello,world]).
data([hello,london]).
data([good,morning,tokyo]).
yes
%%% enum all lists
?- data(X), write(X).
[hello,world]
X = [hello,world] ;
[hello,london]
X = [hello,london] ;
[good,morning,tokyo]
X = [good,morning,tokyo] ;
no
%%% search
?- data([good|X]), write(X).
[morning,tokyo]
X = [morning,tokyo] ;
no
%%% add
?- assert(data([the, end])).
yes
%%% enum all lists
?- listing.
data([hello,world]).
data([hello,london]).
data([good,morning,tokyo]).
data([the,end]).
yes
%%% exist?
?- data([the, end]).
yes
%%% exist?
?- data([its, start]).
no