;			     -*-scheme-*-
(hook 'face 'add
      (lambda (face)
	`(("2S"
	   . ,(let* ((1s (member "1S" face)))
		(if 1s (rm1 (car 1s) face) face))))))
