(egg:set-mode-indicator "roma-kana" " a¤¢" )

(egg:set-mode-map "roma-kana"
(let ((map (cons nil nil)))
(setf-key-action map 90 (list (let ((map (cons map nil)))
(setf-key-action map 46 (list (list 'top "Z" map)"¡¥" ))
(setf-key-action map 44 (list (list 'top "Z" map)"¡¤" ))
(setf-key-action map 47 (list (list 'top "Z" map)"¡¿" ))
(setf-key-action map 63 (list (list 'top "Z" map)"¡©" ))
(setf-key-action map 62 (list (list 'top "Z" map)"¡ä" ))
(setf-key-action map 60 (list (list 'top "Z" map)"¡ã" ))
(setf-key-action map 39 (list (list 'top "Z" map)"¡Ç" ))
(setf-key-action map 34 (list (list 'top "Z" map)"¡É" ))
(setf-key-action map 59 (list (list 'top "Z" map)"¡¨" ))
(setf-key-action map 58 (list (list 'top "Z" map)"¡§" ))
(setf-key-action map 125 (list (list 'top "Z" map)"¡Ñ" ))
(setf-key-action map 123 (list (list 'top "Z" map)"¡Ð" ))
(setf-key-action map 93 (list (list 'top "Z" map)"¡Ï" ))
(setf-key-action map 91 (list (list 'top "Z" map)"¡Î" ))
(setf-key-action map 126 (list (list 'top "Z" map)"¡±" ))
(setf-key-action map 43 (list (list 'top "Z" map)"¡Ü" ))
(setf-key-action map 95 (list (list 'top "Z" map)"¡²" ))
(setf-key-action map 124 (list (list 'top "Z" map)"¡Ã" ))
(setf-key-action map 92 (list (list 'top "Z" map)"¡ï" ))
(setf-key-action map 96 (list (list 'top "Z" map)"¡®" ))
(setf-key-action map 61 (list (list 'top "Z" map)"¡á" ))
(setf-key-action map 45 (list (list 'top "Z" map)"¡Ý" ))
(setf-key-action map 41 (list (list 'top "Z" map)"¡Ë" ))
(setf-key-action map 40 (list (list 'top "Z" map)"¡Ê" ))
(setf-key-action map 42 (list (list 'top "Z" map)"¡ö" ))
(setf-key-action map 38 (list (list 'top "Z" map)"¡õ" ))
(setf-key-action map 94 (list (list 'top "Z" map)"¡°" ))
(setf-key-action map 37 (list (list 'top "Z" map)"¡ó" ))
(setf-key-action map 36 (list (list 'top "Z" map)"¡ð" ))
(setf-key-action map 35 (list (list 'top "Z" map)"¡ô" ))
(setf-key-action map 64 (list (list 'top "Z" map)"¡÷" ))
(setf-key-action map 33 (list (list 'top "Z" map)"¡ª" ))
(setf-key-action map 32 (list (list 'top "Z" map)"¡¡" ))
(setf-key-action map 122 (list (list 'top "Z" map)"£ú" ))
(setf-key-action map 121 (list (list 'top "Z" map)"£ù" ))
(setf-key-action map 120 (list (list 'top "Z" map)"£ø" ))
(setf-key-action map 119 (list (list 'top "Z" map)"£÷" ))
(setf-key-action map 118 (list (list 'top "Z" map)"£ö" ))
(setf-key-action map 117 (list (list 'top "Z" map)"£õ" ))
(setf-key-action map 116 (list (list 'top "Z" map)"£ô" ))
(setf-key-action map 115 (list (list 'top "Z" map)"£ó" ))
(setf-key-action map 114 (list (list 'top "Z" map)"£ò" ))
(setf-key-action map 113 (list (list 'top "Z" map)"£ñ" ))
(setf-key-action map 112 (list (list 'top "Z" map)"£ð" ))
(setf-key-action map 111 (list (list 'top "Z" map)"£ï" ))
(setf-key-action map 110 (list (list 'top "Z" map)"£î" ))
(setf-key-action map 109 (list (list 'top "Z" map)"£í" ))
(setf-key-action map 108 (list (list 'top "Z" map)"£ì" ))
(setf-key-action map 107 (list (list 'top "Z" map)"£ë" ))
(setf-key-action map 106 (list (list 'top "Z" map)"£ê" ))
(setf-key-action map 105 (list (list 'top "Z" map)"£é" ))
(setf-key-action map 104 (list (list 'top "Z" map)"£è" ))
(setf-key-action map 103 (list (list 'top "Z" map)"£ç" ))
(setf-key-action map 102 (list (list 'top "Z" map)"£æ" ))
(setf-key-action map 101 (list (list 'top "Z" map)"£å" ))
(setf-key-action map 100 (list (list 'top "Z" map)"£ä" ))
(setf-key-action map 99 (list (list 'top "Z" map)"£ã" ))
(setf-key-action map 98 (list (list 'top "Z" map)"£â" ))
(setf-key-action map 97 (list (list 'top "Z" map)"£á" ))
(setf-key-action map 90 (list (list 'top "Z" map)"£Ú" ))
(setf-key-action map 89 (list (list 'top "Z" map)"£Ù" ))
(setf-key-action map 88 (list (list 'top "Z" map)"£Ø" ))
(setf-key-action map 87 (list (list 'top "Z" map)"£×" ))
(setf-key-action map 86 (list (list 'top "Z" map)"£Ö" ))
(setf-key-action map 85 (list (list 'top "Z" map)"£Õ" ))
(setf-key-action map 84 (list (list 'top "Z" map)"£Ô" ))
(setf-key-action map 83 (list (list 'top "Z" map)"£Ó" ))
(setf-key-action map 82 (list (list 'top "Z" map)"£Ò" ))
(setf-key-action map 81 (list (list 'top "Z" map)"£Ñ" ))
(setf-key-action map 80 (list (list 'top "Z" map)"£Ð" ))
(setf-key-action map 79 (list (list 'top "Z" map)"£Ï" ))
(setf-key-action map 78 (list (list 'top "Z" map)"£Î" ))
(setf-key-action map 77 (list (list 'top "Z" map)"£Í" ))
(setf-key-action map 76 (list (list 'top "Z" map)"£Ì" ))
(setf-key-action map 75 (list (list 'top "Z" map)"£Ë" ))
(setf-key-action map 74 (list (list 'top "Z" map)"£Ê" ))
(setf-key-action map 73 (list (list 'top "Z" map)"£É" ))
(setf-key-action map 72 (list (list 'top "Z" map)"£È" ))
(setf-key-action map 71 (list (list 'top "Z" map)"£Ç" ))
(setf-key-action map 70 (list (list 'top "Z" map)"£Æ" ))
(setf-key-action map 69 (list (list 'top "Z" map)"£Å" ))
(setf-key-action map 68 (list (list 'top "Z" map)"£Ä" ))
(setf-key-action map 67 (list (list 'top "Z" map)"£Ã" ))
(setf-key-action map 66 (list (list 'top "Z" map)"£Â" ))
(setf-key-action map 65 (list (list 'top "Z" map)"£Á" ))
(setf-key-action map 57 (list (list 'top "Z" map)"£¹" ))
(setf-key-action map 56 (list (list 'top "Z" map)"£¸" ))
(setf-key-action map 55 (list (list 'top "Z" map)"£·" ))
(setf-key-action map 54 (list (list 'top "Z" map)"£¶" ))
(setf-key-action map 53 (list (list 'top "Z" map)"£µ" ))
(setf-key-action map 52 (list (list 'top "Z" map)"£´" ))
(setf-key-action map 51 (list (list 'top "Z" map)"£³" ))
(setf-key-action map 50 (list (list 'top "Z" map)"£²" ))
(setf-key-action map 49 (list (list 'top "Z" map)"£±" ))
(setf-key-action map 48 (list (list 'top "Z" map)"£°" )) map)nil ))
(setf-key-action map 46 (list (list 'top "" map)"¡£" ))
(setf-key-action map 44 (list (list 'top "" map)"¡¢" ))
(setf-key-action map 47 (list (list 'top "" map)"¡¿" ))
(setf-key-action map 63 (list (list 'top "" map)"¡©" ))
(setf-key-action map 62 (list (list 'top "" map)"¡ä" ))
(setf-key-action map 60 (list (list 'top "" map)"¡ã" ))
(setf-key-action map 39 (list (list 'top "" map)"¡Ç" ))
(setf-key-action map 34 (list (list 'top "" map)"¡É" ))
(setf-key-action map 59 (list (list 'top "" map)"¡¨" ))
(setf-key-action map 58 (list (list 'top "" map)"¡§" ))
(setf-key-action map 125 (list (list 'top "" map)"¡Ñ" ))
(setf-key-action map 123 (list (list 'top "" map)"¡Ð" ))
(setf-key-action map 93 (list (list 'top "" map)"¡×" ))
(setf-key-action map 91 (list (list 'top "" map)"¡Ö" ))
(setf-key-action map 126 (list (let ((map (cons map nil)))
(setf-key-action map 90 (list (list 'top "~" map)"Z" ))
(setf-key-action map 89 (list (list 'top "~" map)"Y" ))
(setf-key-action map 88 (list (list 'top "~" map)"X" ))
(setf-key-action map 87 (list (list 'top "~" map)"W" ))
(setf-key-action map 86 (list (list 'top "~" map)"V" ))
(setf-key-action map 85 (list (list 'top "~" map)"U" ))
(setf-key-action map 84 (list (list 'top "~" map)"T" ))
(setf-key-action map 83 (list (list 'top "~" map)"S" ))
(setf-key-action map 82 (list (list 'top "~" map)"R" ))
(setf-key-action map 81 (list (list 'top "~" map)"Q" ))
(setf-key-action map 80 (list (list 'top "~" map)"P" ))
(setf-key-action map 79 (list (list 'top "~" map)"O" ))
(setf-key-action map 78 (list (list 'top "~" map)"N" ))
(setf-key-action map 77 (list (list 'top "~" map)"M" ))
(setf-key-action map 76 (list (list 'top "~" map)"L" ))
(setf-key-action map 75 (list (list 'top "~" map)"K" ))
(setf-key-action map 74 (list (list 'top "~" map)"J" ))
(setf-key-action map 73 (list (list 'top "~" map)"I" ))
(setf-key-action map 72 (list (list 'top "~" map)"H" ))
(setf-key-action map 71 (list (list 'top "~" map)"G" ))
(setf-key-action map 70 (list (list 'top "~" map)"F" ))
(setf-key-action map 69 (list (list 'top "~" map)"E" ))
(setf-key-action map 68 (list (list 'top "~" map)"D" ))
(setf-key-action map 67 (list (list 'top "~" map)"C" ))
(setf-key-action map 66 (list (list 'top "~" map)"B" ))
(setf-key-action map 65 (list (list 'top "~" map)"A" ))
(setf-key-action map 122 (list (list 'top "~" map)"z" ))
(setf-key-action map 121 (list (list 'top "~" map)"y" ))
(setf-key-action map 120 (list (list 'top "~" map)"x" ))
(setf-key-action map 119 (list (list 'top "~" map)"w" ))
(setf-key-action map 118 (list (list 'top "~" map)"v" ))
(setf-key-action map 117 (list (list 'top "~" map)"u" ))
(setf-key-action map 116 (list (list 'top "~" map)"t" ))
(setf-key-action map 115 (list (list 'top "~" map)"s" ))
(setf-key-action map 114 (list (list 'top "~" map)"r" ))
(setf-key-action map 113 (list (list 'top "~" map)"q" ))
(setf-key-action map 112 (list (list 'top "~" map)"p" ))
(setf-key-action map 111 (list (list 'top "~" map)"o" ))
(setf-key-action map 110 (list (list 'top "~" map)"n" ))
(setf-key-action map 109 (list (list 'top "~" map)"m" ))
(setf-key-action map 108 (list (list 'top "~" map)"l" ))
(setf-key-action map 107 (list (list 'top "~" map)"k" ))
(setf-key-action map 106 (list (list 'top "~" map)"j" ))
(setf-key-action map 105 (list (list 'top "~" map)"i" ))
(setf-key-action map 104 (list (list 'top "~" map)"h" ))
(setf-key-action map 103 (list (list 'top "~" map)"g" ))
(setf-key-action map 102 (list (list 'top "~" map)"f" ))
(setf-key-action map 101 (list (list 'top "~" map)"e" ))
(setf-key-action map 100 (list (list 'top "~" map)"d" ))
(setf-key-action map 99 (list (list 'top "~" map)"c" ))
(setf-key-action map 98 (list (list 'top "~" map)"b" ))
(setf-key-action map 97 (list (list 'top "~" map)"a" ))
(setf-key-action map 46 (list (list 'top "~" map)"." ))
(setf-key-action map 44 (list (list 'top "~" map)"," ))
(setf-key-action map 47 (list (list 'top "~" map)"/" ))
(setf-key-action map 63 (list (list 'top "~" map)"?" ))
(setf-key-action map 62 (list (list 'top "~" map)">" ))
(setf-key-action map 60 (list (list 'top "~" map)"<" ))
(setf-key-action map 39 (list (list 'top "~" map)"'" ))
(setf-key-action map 34 (list (list 'top "~" map)"\"" ))
(setf-key-action map 59 (list (list 'top "~" map)";" ))
(setf-key-action map 58 (list (list 'top "~" map)":" ))
(setf-key-action map 125 (list (list 'top "~" map)"}" ))
(setf-key-action map 123 (list (list 'top "~" map)"{" ))
(setf-key-action map 93 (list (list 'top "~" map)"]" ))
(setf-key-action map 91 (list (list 'top "~" map)"[" ))
(setf-key-action map 126 (list (list 'top "~" map)"~" ))
(setf-key-action map 43 (list (list 'top "~" map)"+" ))
(setf-key-action map 95 (list (list 'top "~" map)"_" ))
(setf-key-action map 124 (list (list 'top "~" map)"|" ))
(setf-key-action map 92 (list (list 'top "~" map)"\\" ))
(setf-key-action map 96 (list (list 'top "~" map)"`" ))
(setf-key-action map 61 (list (list 'top "~" map)"=" ))
(setf-key-action map 45 (list (list 'top "~" map)"-" ))
(setf-key-action map 41 (list (list 'top "~" map)")" ))
(setf-key-action map 40 (list (list 'top "~" map)"(" ))
(setf-key-action map 42 (list (list 'top "~" map)"*" ))
(setf-key-action map 38 (list (list 'top "~" map)"&" ))
(setf-key-action map 94 (list (list 'top "~" map)"^" ))
(setf-key-action map 37 (list (list 'top "~" map)"%" ))
(setf-key-action map 36 (list (list 'top "~" map)"$" ))
(setf-key-action map 35 (list (list 'top "~" map)"#" ))
(setf-key-action map 64 (list (list 'top "~" map)"@" ))
(setf-key-action map 33 (list (list 'top "~" map)"!" ))
(setf-key-action map 32 (list (list 'top "~" map)" " ))
(setf-key-action map 48 (list (list 'top "~" map)"0" ))
(setf-key-action map 57 (list (list 'top "~" map)"9" ))
(setf-key-action map 56 (list (list 'top "~" map)"8" ))
(setf-key-action map 55 (list (list 'top "~" map)"7" ))
(setf-key-action map 54 (list (list 'top "~" map)"6" ))
(setf-key-action map 53 (list (list 'top "~" map)"5" ))
(setf-key-action map 52 (list (list 'top "~" map)"4" ))
(setf-key-action map 51 (list (list 'top "~" map)"3" ))
(setf-key-action map 50 (list (list 'top "~" map)"2" ))
(setf-key-action map 49 (list (list 'top "~" map)"1" )) map)"¡±" ))
(setf-key-action map 43 (list (list 'top "" map)"¡Ü" ))
(setf-key-action map 95 (list (list 'top "" map)"¡²" ))
(setf-key-action map 124 (list (list 'top "" map)"¡Ã" ))
(setf-key-action map 92 (list (list 'top "" map)"¡ï" ))
(setf-key-action map 96 (list (list 'top "" map)"¡®" ))
(setf-key-action map 61 (list (list 'top "" map)"¡á" ))
(setf-key-action map 45 (list (list 'top "" map)"¡¼" ))
(setf-key-action map 41 (list (list 'top "" map)"¡Ë" ))
(setf-key-action map 40 (list (list 'top "" map)"¡Ê" ))
(setf-key-action map 42 (list (list 'top "" map)"¡ö" ))
(setf-key-action map 38 (list (list 'top "" map)"¡õ" ))
(setf-key-action map 94 (list (list 'top "" map)"¡°" ))
(setf-key-action map 37 (list (list 'top "" map)"¡ó" ))
(setf-key-action map 36 (list (list 'top "" map)"¡ð" ))
(setf-key-action map 35 (list (list 'top "" map)"¡ô" ))
(setf-key-action map 64 (list (list 'top "" map)"¡÷" ))
(setf-key-action map 33 (list (list 'top "" map)"¡ª" ))
(setf-key-action map 32 (list (list 'top "" map)"¡¡" ))
(setf-key-action map 48 (list (list 'top "" map)"£°" ))
(setf-key-action map 57 (list (list 'top "" map)"£¹" ))
(setf-key-action map 56 (list (list 'top "" map)"£¸" ))
(setf-key-action map 55 (list (list 'top "" map)"£·" ))
(setf-key-action map 54 (list (list 'top "" map)"£¶" ))
(setf-key-action map 53 (list (list 'top "" map)"£µ" ))
(setf-key-action map 52 (list (list 'top "" map)"£´" ))
(setf-key-action map 51 (list (list 'top "" map)"£³" ))
(setf-key-action map 50 (list (list 'top "" map)"£²" ))
(setf-key-action map 49 (list (list 'top "" map)"£±" ))
(setf-key-action map 108 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ly" map)"¤ê¤ç" ))
(setf-key-action map 101 (list (list 'top "ly" map)"¤ê¤§" ))
(setf-key-action map 117 (list (list 'top "ly" map)"¤ê¤å" ))
(setf-key-action map 97 (list (list 'top "ly" map)"¤ê¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "l" map)"¤í" ))
(setf-key-action map 101 (list (list 'top "l" map)"¤ì" ))
(setf-key-action map 117 (list (list 'top "l" map)"¤ë" ))
(setf-key-action map 105 (list (list 'top "l" map)"¤ê" ))
(setf-key-action map 97 (list (list 'top "l" map)"¤é" )) map)nil ))
(setf-key-action map 111 (list (list 'top "" map)"¤ª" ))
(setf-key-action map 101 (list (list 'top "" map)"¤¨" ))
(setf-key-action map 117 (list (list 'top "" map)"¤¦" ))
(setf-key-action map 105 (list (list 'top "" map)"¤¤" ))
(setf-key-action map 97 (list (list 'top "" map)"¤¢" ))
(setf-key-action map 120 (list (let ((map (cons map nil)))
(setf-key-action map 100 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "xd" map)"¤É¤©" ))
(setf-key-action map 101 (list (list 'top "xd" map)"¤Ç¤§" ))
(setf-key-action map 117 (list (list 'top "xd" map)"¤É¤¥" ))
(setf-key-action map 105 (list (list 'top "xd" map)"¤Ç¤£" )) map)nil ))
(setf-key-action map 107 (list (let ((map (cons map nil)))
(setf-key-action map 101 (list (list 'top "xk" map)"¥ö" ))
(setf-key-action map 97 (list (list 'top "xk" map)"¥õ" )) map)nil ))
(setf-key-action map 119 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "xw" map)"¤¦¤©" ))
(setf-key-action map 101 (list (list 'top "xw" map)"¤¦¤§" ))
(setf-key-action map 105 (list (list 'top "xw" map)"¤¦¤£" ))
(setf-key-action map 97 (list (list 'top "xw" map)"¤î" )) map)nil ))
(setf-key-action map 116 (list (let ((map (cons map nil)))
(setf-key-action map 105 (list (list 'top "xt" map)"¤Æ¤£" ))
(setf-key-action map 115 (list (let ((map (cons map nil)))
(setf-key-action map 117 (list (list 'top "xts" map)"¤Ã" )) map)nil ))
(setf-key-action map 117 (list (list 'top "xt" map)"¤Ã" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "xy" map)"¤ç" ))
(setf-key-action map 117 (list (list 'top "xy" map)"¤å" ))
(setf-key-action map 97 (list (list 'top "xy" map)"¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "x" map)"¤©" ))
(setf-key-action map 101 (list (list 'top "x" map)"¤§" ))
(setf-key-action map 117 (list (list 'top "x" map)"¤¥" ))
(setf-key-action map 105 (list (list 'top "x" map)"¤£" ))
(setf-key-action map 97 (list (list 'top "x" map)"¤¡" )) map)nil ))
(setf-key-action map 78 (list (list 'top "" map)"¤ó" ))
(setf-key-action map 110 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ny" map)"¤Ë¤ç" ))
(setf-key-action map 101 (list (list 'top "ny" map)"¤Ë¤§" ))
(setf-key-action map 117 (list (list 'top "ny" map)"¤Ë¤å" ))
(setf-key-action map 97 (list (list 'top "ny" map)"¤Ë¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "n" map)"¤Î" ))
(setf-key-action map 101 (list (list 'top "n" map)"¤Í" ))
(setf-key-action map 117 (list (list 'top "n" map)"¤Ì" ))
(setf-key-action map 105 (list (list 'top "n" map)"¤Ë" ))
(setf-key-action map 97 (list (list 'top "n" map)"¤Ê" ))
(setf-key-action map 39 (list (list 'top "n" map)"¤ó" )) map)"¤ó" ))
(setf-key-action map 109 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "my" map)"¤ß¤ç" ))
(setf-key-action map 101 (list (list 'top "my" map)"¤ß¤§" ))
(setf-key-action map 117 (list (list 'top "my" map)"¤ß¤å" ))
(setf-key-action map 97 (list (list 'top "my" map)"¤ß¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "m" map)"¤â" ))
(setf-key-action map 101 (list (list 'top "m" map)"¤á" ))
(setf-key-action map 117 (list (list 'top "m" map)"¤à" ))
(setf-key-action map 105 (list (list 'top "m" map)"¤ß" ))
(setf-key-action map 97 (list (list 'top "m" map)"¤Þ" ))
(setf-key-action map 112 (list (list 'next "p" nil)"¤ó" ))
(setf-key-action map 109 (list (list 'next "m" nil)"¤ó" ))
(setf-key-action map 98 (list (list 'next "b" nil)"¤ó" )) map)nil ))
(setf-key-action map 118 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "v" map)"¥ô¤©" ))
(setf-key-action map 101 (list (list 'top "v" map)"¥ô¤§" ))
(setf-key-action map 117 (list (list 'top "v" map)"¥ô" ))
(setf-key-action map 105 (list (list 'top "v" map)"¥ô¤£" ))
(setf-key-action map 97 (list (list 'top "v" map)"¥ô¤¡" ))
(setf-key-action map 118 (list (list 'next "v" nil)"¤Ã" )) map)nil ))
(setf-key-action map 106 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "j" map)"¤¸¤ç" ))
(setf-key-action map 101 (list (list 'top "j" map)"¤¸¤§" ))
(setf-key-action map 117 (list (list 'top "j" map)"¤¸¤å" ))
(setf-key-action map 105 (list (list 'top "j" map)"¤¸" ))
(setf-key-action map 97 (list (list 'top "j" map)"¤¸¤ã" ))
(setf-key-action map 106 (list (list 'next "j" nil)"¤Ã" )) map)nil ))
(setf-key-action map 102 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "f" map)"¤Õ¤©" ))
(setf-key-action map 101 (list (list 'top "f" map)"¤Õ¤§" ))
(setf-key-action map 117 (list (list 'top "f" map)"¤Õ" ))
(setf-key-action map 105 (list (list 'top "f" map)"¤Õ¤£" ))
(setf-key-action map 97 (list (list 'top "f" map)"¤Õ¤¡" ))
(setf-key-action map 102 (list (list 'next "f" nil)"¤Ã" )) map)nil ))
(setf-key-action map 99 (list (let ((map (cons map nil)))
(setf-key-action map 104 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ch" map)"¤Á¤ç" ))
(setf-key-action map 101 (list (list 'top "ch" map)"¤Á¤§" ))
(setf-key-action map 117 (list (list 'top "ch" map)"¤Á¤å" ))
(setf-key-action map 105 (list (list 'top "ch" map)"¤Á" ))
(setf-key-action map 97 (list (list 'top "ch" map)"¤Á¤ã" )) map)nil ))
(setf-key-action map 99 (list (list 'next "c" nil)"¤Ã" )) map)nil ))
(setf-key-action map 112 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "py" map)"¤Ô¤ç" ))
(setf-key-action map 101 (list (list 'top "py" map)"¤Ô¤§" ))
(setf-key-action map 117 (list (list 'top "py" map)"¤Ô¤å" ))
(setf-key-action map 97 (list (list 'top "py" map)"¤Ô¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "p" map)"¤Ý" ))
(setf-key-action map 101 (list (list 'top "p" map)"¤Ú" ))
(setf-key-action map 117 (list (list 'top "p" map)"¤×" ))
(setf-key-action map 105 (list (list 'top "p" map)"¤Ô" ))
(setf-key-action map 97 (list (list 'top "p" map)"¤Ñ" ))
(setf-key-action map 112 (list (list 'next "p" nil)"¤Ã" )) map)nil ))
(setf-key-action map 98 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "by" map)"¤Ó¤ç" ))
(setf-key-action map 101 (list (list 'top "by" map)"¤Ó¤§" ))
(setf-key-action map 117 (list (list 'top "by" map)"¤Ó¤å" ))
(setf-key-action map 97 (list (list 'top "by" map)"¤Ó¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "b" map)"¤Ü" ))
(setf-key-action map 101 (list (list 'top "b" map)"¤Ù" ))
(setf-key-action map 117 (list (list 'top "b" map)"¤Ö" ))
(setf-key-action map 105 (list (list 'top "b" map)"¤Ó" ))
(setf-key-action map 97 (list (list 'top "b" map)"¤Ð" ))
(setf-key-action map 98 (list (list 'next "b" nil)"¤Ã" )) map)nil ))
(setf-key-action map 100 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "dy" map)"¤Â¤ç" ))
(setf-key-action map 101 (list (list 'top "dy" map)"¤Â¤§" ))
(setf-key-action map 117 (list (list 'top "dy" map)"¤Â¤å" ))
(setf-key-action map 105 (list (list 'top "dy" map)"¤Ç¤£" ))
(setf-key-action map 97 (list (list 'top "dy" map)"¤Â¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "d" map)"¤É" ))
(setf-key-action map 101 (list (list 'top "d" map)"¤Ç" ))
(setf-key-action map 117 (list (list 'top "d" map)"¤Å" ))
(setf-key-action map 105 (list (list 'top "d" map)"¤Â" ))
(setf-key-action map 97 (list (list 'top "d" map)"¤À" ))
(setf-key-action map 100 (list (list 'next "d" nil)"¤Ã" )) map)nil ))
(setf-key-action map 122 (list (let ((map (cons map nil)))
(setf-key-action map 63 (list (list 'top "z" map)"¡ç" ))
(setf-key-action map 47 (list (list 'top "z" map)"¡¦" ))
(setf-key-action map 62 (list (list 'top "z" map)"¡æ" ))
(setf-key-action map 46 (list (list 'top "z" map)"¡Ä" ))
(setf-key-action map 60 (list (list 'top "z" map)"¡å" ))
(setf-key-action map 44 (list (list 'top "z" map)"¡Å" ))
(setf-key-action map 77 (list (list 'top "z" map)"¢®" ))
(setf-key-action map 109 (list (list 'top "z" map)"¡í" ))
(setf-key-action map 78 (list (list 'top "z" map)"¢­" ))
(setf-key-action map 110 (list (list 'top "z" map)"¡ì" ))
(setf-key-action map 66 (list (list 'top "z" map)"¢«" ))
(setf-key-action map 98 (list (list 'top "z" map)"¡ë" ))
(setf-key-action map 86 (list (list 'top "z" map)"¡à" ))
(setf-key-action map 118 (list (list 'top "z" map)"¢¨" ))
(setf-key-action map 67 (list (list 'top "z" map)"¡î" ))
(setf-key-action map 99 (list (list 'top "z" map)"¡»" ))
(setf-key-action map 88 (list (list 'top "z" map)":-)" ))
(setf-key-action map 120 (list (list 'top "z" map)":-" ))
(setf-key-action map 34 (list (list 'top "z" map)"¡È" ))
(setf-key-action map 39 (list (list 'top "z" map)"¡Æ" ))
(setf-key-action map 58 (list (list 'top "z" map)"¡¬" ))
(setf-key-action map 59 (list (list 'top "z" map)"¡«" ))
(setf-key-action map 108 (list (list 'top "z" map)"¢ª" ))
(setf-key-action map 107 (list (list 'top "z" map)"¢¬" ))
(setf-key-action map 106 (list (list 'top "z" map)"¢­" ))
(setf-key-action map 104 (list (list 'top "z" map)"¢«" ))
(setf-key-action map 71 (list (list 'top "z" map)"¡½" ))
(setf-key-action map 103 (list (list 'top "z" map)"¡¾" ))
(setf-key-action map 70 (list (list 'top "z" map)"¢ª" ))
(setf-key-action map 102 (list (list 'top "z" map)"¡·" ))
(setf-key-action map 68 (list (list 'top "z" map)"¡¶" ))
(setf-key-action map 100 (list (list 'top "z" map)"¡µ" ))
(setf-key-action map 83 (list (list 'top "z" map)"¡´" ))
(setf-key-action map 115 (list (list 'top "z" map)"¡³" ))
(setf-key-action map 125 (list (list 'top "z" map)"¡Í" ))
(setf-key-action map 93 (list (list 'top "z" map)"¡Ù" ))
(setf-key-action map 123 (list (list 'top "z" map)"¡Ì" ))
(setf-key-action map 91 (list (list 'top "z" map)"¡Ø" ))
(setf-key-action map 80 (list (list 'top "z" map)"¢¬" ))
(setf-key-action map 112 (list (list 'top "z" map)"¢©" ))
(setf-key-action map 84 (list (list 'top "z" map)"¡ø" ))
(setf-key-action map 116 (list (list 'top "z" map)"¡º" ))
(setf-key-action map 82 (list (list 'top "z" map)"¡¸" ))
(setf-key-action map 114 (list (list 'top "z" map)"¡¹" ))
(setf-key-action map 87 (list (list 'top "z" map)"¡Ó" ))
(setf-key-action map 119 (list (list 'top "z" map)"¡Õ" ))
(setf-key-action map 81 (list (list 'top "z" map)"¡Ò" ))
(setf-key-action map 113 (list (list 'top "z" map)"¡Ô" ))
(setf-key-action map 126 (list (list 'top "z" map)"¡¯" ))
(setf-key-action map 96 (list (list 'top "z" map)"¡­" ))
(setf-key-action map 124 (list (list 'top "z" map)"¡Â" ))
(setf-key-action map 92 (list (list 'top "z" map)"¡À" ))
(setf-key-action map 43 (list (list 'top "z" map)"¡Þ" ))
(setf-key-action map 61 (list (list 'top "z" map)"¡â" ))
(setf-key-action map 95 (list (list 'top "z" map)"¡è" ))
(setf-key-action map 45 (list (list 'top "z" map)"¡Á" ))
(setf-key-action map 41 (list (list 'top "z" map)"¡Û" ))
(setf-key-action map 48 (list (list 'top "z" map)"¡ê" ))
(setf-key-action map 40 (list (list 'top "z" map)"¡Ú" ))
(setf-key-action map 57 (list (list 'top "z" map)"¡é" ))
(setf-key-action map 42 (list (list 'top "z" map)"¡ß" ))
(setf-key-action map 56 (list (list 'top "z" map)"¡ñ" ))
(setf-key-action map 38 (list (list 'top "z" map)"¡ò" ))
(setf-key-action map 55 (list (list 'top "z" map)"¡ý" ))
(setf-key-action map 94 (list (list 'top "z" map)"¡ú" ))
(setf-key-action map 54 (list (list 'top "z" map)"¡ù" ))
(setf-key-action map 37 (list (list 'top "z" map)"¢¡" ))
(setf-key-action map 53 (list (list 'top "z" map)"¡þ" ))
(setf-key-action map 36 (list (list 'top "z" map)"¢£" ))
(setf-key-action map 52 (list (list 'top "z" map)"¢¢" ))
(setf-key-action map 35 (list (list 'top "z" map)"¢¥" ))
(setf-key-action map 51 (list (list 'top "z" map)"¢¤" ))
(setf-key-action map 64 (list (list 'top "z" map)"¢§" ))
(setf-key-action map 50 (list (list 'top "z" map)"¢¦" ))
(setf-key-action map 33 (list (list 'top "z" map)"¡ü" ))
(setf-key-action map 49 (list (list 'top "z" map)"¡û" ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "zy" map)"¤¸¤ç" ))
(setf-key-action map 101 (list (list 'top "zy" map)"¤¸¤§" ))
(setf-key-action map 117 (list (list 'top "zy" map)"¤¸¤å" ))
(setf-key-action map 97 (list (list 'top "zy" map)"¤¸¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "z" map)"¤¾" ))
(setf-key-action map 101 (list (list 'top "z" map)"¤¼" ))
(setf-key-action map 117 (list (list 'top "z" map)"¤º" ))
(setf-key-action map 105 (list (list 'top "z" map)"¤¸" ))
(setf-key-action map 97 (list (list 'top "z" map)"¤¶" ))
(setf-key-action map 122 (list (list 'next "z" nil)"¤Ã" )) map)nil ))
(setf-key-action map 103 (list (let ((map (cons map nil)))
(setf-key-action map 119 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "gw" map)"¤°¤©" ))
(setf-key-action map 101 (list (list 'top "gw" map)"¤°¤§" ))
(setf-key-action map 117 (list (list 'top "gw" map)"¤°" ))
(setf-key-action map 105 (list (list 'top "gw" map)"¤°¤£" ))
(setf-key-action map 97 (list (list 'top "gw" map)"¤°¤î" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "gy" map)"¤®¤ç" ))
(setf-key-action map 101 (list (list 'top "gy" map)"¤®¤§" ))
(setf-key-action map 117 (list (list 'top "gy" map)"¤®¤å" ))
(setf-key-action map 97 (list (list 'top "gy" map)"¤®¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "g" map)"¤´" ))
(setf-key-action map 101 (list (list 'top "g" map)"¤²" ))
(setf-key-action map 117 (list (list 'top "g" map)"¤°" ))
(setf-key-action map 105 (list (list 'top "g" map)"¤®" ))
(setf-key-action map 97 (list (list 'top "g" map)"¤¬" ))
(setf-key-action map 103 (list (list 'next "g" nil)"¤Ã" )) map)nil ))
(setf-key-action map 119 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "w" map)"¤ò" ))
(setf-key-action map 101 (list (list 'top "w" map)"¤ñ" ))
(setf-key-action map 117 (list (list 'top "w" map)"¤¦" ))
(setf-key-action map 105 (list (list 'top "w" map)"¤ð" ))
(setf-key-action map 97 (list (list 'top "w" map)"¤ï" ))
(setf-key-action map 119 (list (list 'next "w" nil)"¤Ã" )) map)nil ))
(setf-key-action map 114 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ry" map)"¤ê¤ç" ))
(setf-key-action map 101 (list (list 'top "ry" map)"¤ê¤§" ))
(setf-key-action map 117 (list (list 'top "ry" map)"¤ê¤å" ))
(setf-key-action map 97 (list (list 'top "ry" map)"¤ê¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "r" map)"¤í" ))
(setf-key-action map 101 (list (list 'top "r" map)"¤ì" ))
(setf-key-action map 117 (list (list 'top "r" map)"¤ë" ))
(setf-key-action map 105 (list (list 'top "r" map)"¤ê" ))
(setf-key-action map 97 (list (list 'top "r" map)"¤é" ))
(setf-key-action map 114 (list (list 'next "r" nil)"¤Ã" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "y" map)"¤è" ))
(setf-key-action map 101 (list (list 'top "y" map)"¤¤¤§" ))
(setf-key-action map 117 (list (list 'top "y" map)"¤æ" ))
(setf-key-action map 105 (list (list 'top "y" map)"¤¤" ))
(setf-key-action map 97 (list (list 'top "y" map)"¤ä" ))
(setf-key-action map 121 (list (list 'next "y" nil)"¤Ã" )) map)nil ))
(setf-key-action map 104 (list (let ((map (cons map nil)))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "hy" map)"¤Ò¤ç" ))
(setf-key-action map 101 (list (list 'top "hy" map)"¤Ò¤§" ))
(setf-key-action map 117 (list (list 'top "hy" map)"¤Ò¤å" ))
(setf-key-action map 97 (list (list 'top "hy" map)"¤Ò¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "h" map)"¤Û" ))
(setf-key-action map 101 (list (list 'top "h" map)"¤Ø" ))
(setf-key-action map 117 (list (list 'top "h" map)"¤Õ" ))
(setf-key-action map 105 (list (list 'top "h" map)"¤Ò" ))
(setf-key-action map 97 (list (list 'top "h" map)"¤Ï" ))
(setf-key-action map 104 (list (list 'next "h" nil)"¤Ã" )) map)nil ))
(setf-key-action map 116 (list (let ((map (cons map nil)))
(setf-key-action map 115 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ts" map)"¤Ä¤©" ))
(setf-key-action map 101 (list (list 'top "ts" map)"¤Ä¤§" ))
(setf-key-action map 105 (list (list 'top "ts" map)"¤Ä¤£" ))
(setf-key-action map 97 (list (list 'top "ts" map)"¤Ä¤¡" ))
(setf-key-action map 117 (list (list 'top "ts" map)"¤Ä" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ty" map)"¤Á¤ç" ))
(setf-key-action map 101 (list (list 'top "ty" map)"¤Á¤§" ))
(setf-key-action map 117 (list (list 'top "ty" map)"¤Á¤å" ))
(setf-key-action map 105 (list (list 'top "ty" map)"¤Æ¤£" ))
(setf-key-action map 97 (list (list 'top "ty" map)"¤Á¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "t" map)"¤È" ))
(setf-key-action map 101 (list (list 'top "t" map)"¤Æ" ))
(setf-key-action map 117 (list (list 'top "t" map)"¤Ä" ))
(setf-key-action map 105 (list (list 'top "t" map)"¤Á" ))
(setf-key-action map 97 (list (list 'top "t" map)"¤¿" ))
(setf-key-action map 99 (list (let ((map (cons map nil)))
(setf-key-action map 104 (list (list 'next "ch" nil)"¤Ã" )) map)nil ))
(setf-key-action map 116 (list (list 'next "t" nil)"¤Ã" )) map)nil ))
(setf-key-action map 115 (list (let ((map (cons map nil)))
(setf-key-action map 104 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "sh" map)"¤·¤ç" ))
(setf-key-action map 101 (list (list 'top "sh" map)"¤·¤§" ))
(setf-key-action map 117 (list (list 'top "sh" map)"¤·¤å" ))
(setf-key-action map 105 (list (list 'top "sh" map)"¤·" ))
(setf-key-action map 97 (list (list 'top "sh" map)"¤·¤ã" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "sy" map)"¤·¤ç" ))
(setf-key-action map 101 (list (list 'top "sy" map)"¤·¤§" ))
(setf-key-action map 117 (list (list 'top "sy" map)"¤·¤å" ))
(setf-key-action map 97 (list (list 'top "sy" map)"¤·¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "s" map)"¤½" ))
(setf-key-action map 101 (list (list 'top "s" map)"¤»" ))
(setf-key-action map 117 (list (list 'top "s" map)"¤¹" ))
(setf-key-action map 105 (list (list 'top "s" map)"¤·" ))
(setf-key-action map 97 (list (list 'top "s" map)"¤µ" ))
(setf-key-action map 115 (list (list 'next "s" nil)"¤Ã" )) map)nil ))
(setf-key-action map 107 (list (let ((map (cons map nil)))
(setf-key-action map 119 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "kw" map)"¤¯¤©" ))
(setf-key-action map 101 (list (list 'top "kw" map)"¤¯¤§" ))
(setf-key-action map 117 (list (list 'top "kw" map)"¤¯" ))
(setf-key-action map 105 (list (list 'top "kw" map)"¤¯¤£" ))
(setf-key-action map 97 (list (list 'top "kw" map)"¤¯¤î" )) map)nil ))
(setf-key-action map 121 (list (let ((map (cons map nil)))
(setf-key-action map 111 (list (list 'top "ky" map)"¤­¤ç" ))
(setf-key-action map 101 (list (list 'top "ky" map)"¤­¤§" ))
(setf-key-action map 117 (list (list 'top "ky" map)"¤­¤å" ))
(setf-key-action map 97 (list (list 'top "ky" map)"¤­¤ã" )) map)nil ))
(setf-key-action map 111 (list (list 'top "k" map)"¤³" ))
(setf-key-action map 101 (list (list 'top "k" map)"¤±" ))
(setf-key-action map 117 (list (list 'top "k" map)"¤¯" ))
(setf-key-action map 105 (list (list 'top "k" map)"¤­" ))
(setf-key-action map 97 (list (list 'top "k" map)"¤«" ))
(setf-key-action map 107 (list (list 'next "k" nil)"¤Ã" )) map)nil ))
 map) )