ie$editor(_)   :- 29.
ie$editor(_,_) :- 30.

ie$memory('mine.pro').

ie(X) :- !, 
         retract(ie$memory(_)),
         asserta(ie$memory(X)),
         ie$editor(X),
         !,
         reconsult(X).
:- op(1200, fx, ie).
me :- !,
      ie$memory(File),
      ie$editor(File),
      !,
      reconsult(File).