(string-match "^->same" (symbol-name name))
(string-match "^->original" (symbol-name name))
(string-match "^->ancient" (symbol-name name))
(string-match "^->same" (symbol-name name))
(string-match "^->original" (symbol-name name))
(string-match "^->ancient" (symbol-name name))