(SETQ MEMORY '(DOG (-> KMP)))