(string-match "^<-same" (symbol-name name))
(string-match "^->vulgar" (symbol-name name))
(string-match "^->wrong" (symbol-name name))
(string-match "^<-same" (symbol-name name))
(string-match "^->vulgar" (symbol-name name))
(string-match "^->wrong" (symbol-name name))