(tofile "other-rxn-mappings-by-gene.txt" (loop for entries in *rxns-of-genes* do (loop for entry in entries
	  for blattner = (first entry)
	  for ecogene = (second entry)
	  for ucsd-rxn = (third entry)
	  for biocyc-rxns = (fourth entry)
	  when biocyc-rxns
	  do (format t "~A	~A	~A	~{~A ~}~%" blattner ecogene ucsd-rxn biocyc-rxns))))