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