;;; ---- some "unicode" perl6 stuff 
;; The numeric codes are base 10 from iso-8869-1.
;; Keys are control-c followed by control-(>, <, y), 
;; without the shift key
(global-set-key [(control c) (control ?.)] 
 '(lambda () (interactive "*") (insert 187)))
(global-set-key [(control c) (control ?,)] 
 '(lambda () (interactive "*") (insert 171)))
(global-set-key [(control c) (control ?y)] 
 '(lambda () (interactive "*") (insert 165)))