:- use_module(library(lists)).
:-['2012_2/keggmap_rn_rno.pl'].

nameMapping(KeggID):-
	concept_accession(OndexID,'KEGG',KeggID,true),!,
	portray_clause(ubiqutousCompound(OndexID)).
nameMapping(KeggID):-
	write('% not appeared'),writeq(KeggID),nl.
%	portray_clause(ubiqutousCompound(KeggID)).

%forall(P,Q) :- \+(P,\+Q).



t:- UL=['C00001','C00002','C00003','C00004','C00005','C00006','C00007','C00008','C00009','C00010', 'C00011', 'C00013','C00014','C00015','C00020', 'C00024','C00080 ', 'C00362', 'C00144', 'C00209', 'C00282', 'C00044', 'C00361', 'C00286', 'C00063', 'C00112', 'C00131', 'C00206', 'C00360', 'C00460', 'C00075', 'C00105', 'C00804', 'C00048', 'C00153', 'C00387', 'C05985', 'C00035', 'C00455', 'C00215', 'C00067', 'C00575', 'C03248', 'C00704', 'C00027', 'C01346', 'C00365', 'C00055', 'C00058'],
tell('ubiqutous_compounds.pl'),
forall(member(Compound_KEGGID,UL),nameMapping(Compound_KEGGID)),
told.
	
% Alkylphosphonate/PH2O4R [Annotation], PH2O4R [ConceptName]