,@(let (i l)
    (setq i 33)
    (while (<= i 91)
      (setq l (cons (cons (make-char 'latin-jisx0201 i)
			  (make-char 'ascii i)) l)
	    i (1+ i)))
    (setq i 93)
    (while (<= i 125)
      (setq l (cons (cons (make-char 'latin-jisx0201 i)
			  (make-char 'ascii i)) l)
	    i (1+ i)))
    l)