cleanslate:-
    foreach(recorded(metacurrent,A,REF1),
            erase(REF1)),!,
    foreach(recorded(current,B,REF2),
            erase(REF2)),!,
    foreach(recorded(inferbase,C,REF3),
            erase(REF3)),!,
    foreach(recorded(data,D,REF4),
            erase(REF4)),!,
    foreach(recorded(goal,E,REF5),
            erase(REF5)),!,
    foreach(recorded(suspended,F,REF6),
            erase(REF6)),!,
    foreach(recorded(discovering,G,REF7),
            erase(REF7)).
