aspect Traversals {
  declare strategy: eachCommand: "from Commands to Command";
  declare traversal:
    void interpret(CompoundFile cd): eachCommand(Interpreter);
  declare traversal:
       void listAll(): eachFile(FileLister);
	  declare traversal:
	 void listAll(X x, Y y): eachFile(FileLister);
}