Common Lisp で OLE ライブラリを作りはじめる

Common Lisp の OLE ライブラリ（Ruby の Win32OLE みたいなの）がなかったので作りはじめてみました。
ここ数日せっせとハックしてます。

自宅には Windows マシンがないので OS インストールからでした。
Linux マシンの qemu/kvm に Vista をインストール。
ついで Cygwin, Meadow, SBCL, SLIME, VS2008C++Express, WIN32SDK をインストール。

そしてようやく開発開始です。
C ではコードを書かず、cffi を使って Lisp のコードだけで作成する方針でいきます。
VARIANT の union にやられながら、とりあず BOOL, BST, IDispatch だけを実装して、次のコードが動くようになりました。
IE でページを表示してタイトルを取得しています。
Excel のサンプルを作りたいところですが、Excel を持っていないので。。。とても古いバージョンがどっかにあったかなぁ。

(let ((ie (create-instance "InternetExplorer.Application")))
  (property ie :visible t)
  (invoke ie :navigate "http://sbcl.sourceforge.net/")
  (loop while (property ie :busy)
     do (sleep 0.5))
  (let ((document (property ie :document)))
    (format t "document title is \"~a\".~%" (property document :title)))
  (sleep 3)
  (invoke ie :quit))

やっぱり名前は cl-win32ole ですよね。

バレエ発表会 くるみ割り人形

昨日は娘のバレエ発表会でした。
第1部、第2部とあり。なんと第2部はくるみ割り人形の全幕。
一番驚いたのは小学4年生のレベルが高いこと。なんだかとても綺麗で上手でした。去年はそんな印象はなかったのですが、これは来年、再来年とますます期待できそうです。
うちの娘も1回間違えたものの上手に踊っていました。
表情も一番いい笑顔でしたよ。

[Common Lisp] iconv をアップデート ver 0.4

iconv のまたバージョンアップしました。
UTF-32 等に変換するとバッファが足りなくなるので、errno E2BIG を見るようにしました。
errno を見る方法ですが、SBCL なら sb-alien:get-errno、CMUCL なら unix:unix-errno、その他なら __errno_location を使うようにしました。
あとは CMUCL、32bit、64bit 環境で動かして見つけた不具合を修正。

[本] Paradigms of Artificial Intelligence Programming: Case Studies in Common Lisp

年末年始のおともに買いました。
amazon.com のレビューで「This book has been called "The best book on programming ever written". 」なんて書かれていましたので。

[Common Lisp] iconv をアップデート

iconv をアップデートしました。バージョン 0.3 です。
変更点は次のとおりです。

• UFFI をやめて CFFI を使うようにしました。


• ポータブルな参照方法が見つからなかったので、errno を見るのを止めました。


• error-p 引数を削除して、返り値の2番目で成功か否かを返すようにしました。


• from-code と to-code は symbol でも動くようにしました。

ほんとたいしたことのないライブラリなので trivial-iconv とかいう名前にしておけばよかったなぁ。
それはともかく、英語は難しいです。

[Common Lisp] LTK の味見

Common Lisp の Tk バインディングである LTK をちょっと味見してみました。
CLIM にくらべるとずっと手軽な感じです。
Debian の UTF-8 な環境ですが、日本語の入出力も普通にできました。
最近なんだか Web ばかりですが、GUI のプログラミングも楽しいですね♪

#|
http://www.peter-herth.de/ltk/
(require :asdf-install)
(asdf-install:install :ltk)
|#
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :ltk))

(in-package :ltk)

;;デモ
;;(ltktest)
;;(ltk-eyes)

(defun main ()
  (setf *debug-tk* nil)
  (with-ltk ()
    (let ((btn (make-instance
              'button
              :text "やあ、LTK♪"
              :command (lambda ()
                         (do-msg "それでは。" "ハローワールド!")
                         (setf *exit-mainloop* t))))
          (txt (make-instance 'text)))
      (pack btn)
      (pack txt))))

(main)

再 CLIM(McCLIM) で Hello World! まで

McCLIM の Wiki(McCliki)にある "A Guided Tour of the Common Lisp Interface Manager" を読んでいます。それにのっていた Hello World ですが、"Hello World!" を真ん中に表示するための次のコードがとても気に入りました。
(floor w 2) (floor h 2) :align-x :center :align-y :center
今日はただそれだけです。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :mcclim))

(in-package :clim-user)

(define-application-frame hello-world ()
  ((greeting :initform "Hello World!"
             :accessor greeting))
  (:pane (make-pane 'hello-world-pane)))

(defclass hello-world-pane (clim-stream-pane)
  ())

(defmethod handle-repaint ((pane hello-world-pane) region)
  (let ((w (bounding-rectangle-width pane))
        (h (bounding-rectangle-height pane)))
    (draw-rectangle* pane 0 0 w h
                     :filled t
                     :ink (pane-background pane))
    (draw-text* pane
                (greeting *application-frame*)
                (floor w 2) (floor h 2) :align-x :center :align-y :center)))

(defun run ()
  (run-frame-top-level
   (make-application-frame 'hello-world :width 300 :height 200)))

;;(run)

Common Lisp で Brainf*ck コンパイラ

どう書く？org の「BFコンパイラー」をやってみました。
Common Lisp での回答はすでに出ていますが、今回はマクロキャラクタを使ってやってみます。
お題は「BFで書かれたソースを、同じ言語に変換するコンパイラー」ですが、マクロキャラクタでリードテーブル（*readtable*）を拡張し言語（Common Lisp）自体が Brainf*ck のソースそのままをロード（load）、コンパイル（compile-file）できるようにします（といっても、セットしたマクロキャラクタにしたがいリーダーが自動的に CL に変換してくれているのですが）。。
SBCL のコンパイラはネイティブコードにコンパイルしてくれるので、Brainf*ck のソースもネイティブコードにコンパイルしている、と言えるのかもしれません;)

(defparameter *memory* nil  "メモリ")

(defparameter *ptr* 0 "ポインタ")

(defun init-bf-env ()
  "実行環境の初期化を行います。"
  (setf *memory*
        (make-array 1 :initial-element 0 :adjustable t :fill-pointer 1)
        *ptr* 0))

(define-symbol-macro *-*ptr* (aref *memory* *ptr*))

(defun make-bf-readtable ()
  (let ((*readtable* (copy-readtable nil)))
    (loop for (char . fun) in
         `((#\/ . ,#'(lambda (stream char)
                       (declare (ignore char))
                       (do () ((char= (read-char stream nil #\Newline t)
                                      #\Newline)))
                       (values)))
           (#\> . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(when (<= (length *memory*) (incf *ptr*))
                          (vector-push-extend 0 *memory*))))
           (#\< . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(decf *ptr*)))
           (#\+ . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(incf *-*ptr*)))
           (#\- . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(decf *-*ptr*)))
           (#\. . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(write-char (code-char *-*ptr*))))
           (#\, . ,#'(lambda (stream char)
                       (declare (ignore stream char))
                       `(setf *-*ptr* (char-code (read-char)))))
           (#\[ . ,#'(lambda (stream char)
                       (declare (ignore char))
                       `(loop until (zerop *-*ptr*)
                           do (progn ,@(read-delimited-list #\] stream t))))))
       do (set-macro-character char fun))
    (set-macro-character #\] (get-macro-character #\)) nil)
    *readtable*))

;; テスト。*readtable* を設定して load する。
(let ((*readtable* (make-bf-readtable)))
  (init-bf-env)           ;実行時には *memory* と *ptr* の初期化が必要
  (load #p"hello-world.bf"))

;; もちろんコンパイルもできます。
(let ((*readtable* (make-bf-readtable)))
  (compile-file #p"hello-world.bf"))

;; コンパイルしたものを実行。速いです!!
(progn (init-bf-env)      ;実行時には *memory* と *ptr* の初期化が必要
       (load "hello-world.fasl"))

実行前に (init-bf-env) が必要なのがちょっとわずらわしいですね。
dispatching macro character を使えばそのへんを含めた上で、Common Lisp のソースに Brainf*ck のソースを埋め込む、といったこともできるでしょう。

Common Lisp で Twitter API をたたいてみる

いまさらながら Twitter を再開しています。
そこで Common Lisp で Twitter API をたたいてみたいと思います。

REST なので Drakma で http-request すればできちゃいます。フォーマットは JSON を指定して、CL-JSON でデコードします。
デコードまでしてしまえば alist のリストが手に入るので、後は煮るなり焼くなり好きなように。なのですが、せっかくの Common Lisp なので無駄に with-selector なんていうマクロを書いて遊んでいます。

次のページを参考にさせていただきました。ありがとうございます。
観測気球さんのTwitter API 仕様書 (勝手に日本語訳シリーズ)
Twitter Development Talk API Documentation

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :drakma)
  (require :cl-json))

;; 文字コードは UTF-8 で
(setf drakma:*drakma-default-external-format* :utf-8)

;; ボディを文字列で取得するために、テキストとして判定される Content-Type を追加
(pushnew '("application" . "json") drakma:*text-content-types* :test #'equal)

(defparameter *basic-authorization*
  (with-open-file (in (merge-pathnames #p".twitter.lisp" (user-homedir-pathname)))
    (read in))
  "Basic 認証のパラメータを取得する。~/.twitter.lisp の中身は (\"username\" \"password\")")

(defun public-timeline ()
  "public_timeline を取得する。"
  (json:decode-json-from-string
   (drakma:http-request "http://twitter.com/statuses/public_timeline.json"
                        :basic-authorization *basic-authorization*)))

(defmacro select (accessor data)
  "各フィールドへ assoc でアクセスするマクロ。"
  `(reduce #'(lambda (acc key)
               `(cdr (assoc ,key ,acc)))
           ,accessor
           :initial-value ,data))

(defmacro with-selector (fields from &body body)
  "レスポンスボディの各フィールドへのアクセスマクロ。
(loop for each in (public-timeline)
     do (with-selector ((user :user :screen_name)
                        (text :text))
            each
          (format t \"~15a ~a~%\" user text)))"
  (let ((data (gensym)))
    `(let ((,data ,from))
       (let ,(mapcar #'(lambda (x)
                         (list (car x) (select (cdr x) data)))
                     fields)
         ,@body))))

;; public_timeline を取ってきてスクリーンネームとテキストを表示する。
(loop for each in (public-timeline)
     do (with-selector ((user :user :screen_name)
                        (text :text))
            each
          (format t "~15a ~a~%" user text)))

Common Lisp のシンボルの美しさについて

Common Lisp のシンボル（Symbol）は次の属性を持っています。

• 名前: symbol-name


• ホームパッケージ: symbol-package


• プロパティリスト: symbol-plist


• 値: symbol-value


• 関数: symbol-function

(defvar sym 'あたい)

(defun sym ()
  '関数)

(setf (get 'sym 'キー1) '値1)

(macrolet ((p (&body body)
              `(progn ,@(mapcar #'(lambda (arg)
                                    `(format t "~30a ; => ~a~%" ',arg ,arg))
                                body))))
  (p sym
     (sym)
     (get 'sym 'キー1)
     (symbol-name 'sym)
     (symbol-package 'sym)
     (symbol-plist 'sym)
     (symbol-value 'sym)
     (symbol-function 'sym)))

シンボル sym は変数であり関数でありプロパティリストであり、自分の名前とパッケージを知っています。
Common Lisp のシンボルはこのようにきちんとした構造を持った一つのオブジェクトなのです。
そして、Lisp ではこのようなシンボルを変数のように使います。
他の言語の変数は、それ自体では実態がなく、他の何かの参照のようなものです。
しかし Lisp の変数は、シンボルというオブジェクトです。
これは Lisp の美しさの一つだと思います。
他の言語の変数が何か特殊でいびつなもののように思えます。
I love Common Lisp.

FON La Fonera

ずっと FON の La Fonera が安定稼動してくれませんでした。ブチブチ接続が切れてしまうのです。

調べてみました。
FoN まとめ Wikiに
「La Foneraでインターネット接続は出来るのですが、2～3分おきに再起動が必要になります」
「10MBイーサネット、半二重設定で使用されている場合に発生する」
とあるのを見ました。これが原因でしょうか？

さっそく、Amazon で PLANEX 5ポート10M/100Mスタンディングスイッチングハブ FX-05ST を購入し、それ経由で La Fonera を繋いでみることにしました。
これで La Fonera は100M接続になるので改善するはずです。

安定稼動しました。
うん、よかった。

[Common Lisp] マクロを定義するマクロ（Anaphora より）

Anaphora はアナホォリックマクロを集めたライブラリです。
その中でマクロを定義するマクロが使われています。
if や and ごとに直接アナフォリックマクロを定義するのではなく、アナフォリックマクロを定義するマクロ anaphoric を定義した上で、それを利用して if や and のアナフォリックマクロ（aif, aand, etc.）を定義しています。
Lisp ならではの素敵なコードです。

On Lisp でもアナフォリックマクロとマクロを定義するマクロが解説されています。

Anaphora の anaphora.lisp より抜粋です。

(defmacro anaphoric (op test &body body)
  `(let ((it ,test))
     (,op it ,@body)))

(defmacro aif (test then &optional else)
  `(anaphoric if ,test ,then ,else))

(defmacro aand (first &rest rest)
  `(anaphoric and ,first ,@rest))

(aif (car '("Hello" "World"))
     (format nil "~a World!" it))
;; ==> "Hello World!"

(aand (cdr '(1 2 3)) (cdr it) (cdr it))
;; ==> 3

[Common Lisp][UCW][Elephant] UCW で作った TODO リストアプリケーションに永続化機能を追加する

以前 CUW で作成した TODO リストアプリケーション は todo オブジェクトをメモリ上に持っているだけでした。
今回は Elephant を使って todo オブジェクトを永続化してみます。
Elephant は Common Lisp のオブジェクトデータベースです。
バックエンドとして Berkeley DB、CL-SQL 経由の PostgreSQL or SQLite3 が使用可能です。Postmodern も使えるようになっているかもしれません。

elephant:open-store でデータストアをオープンします。
バックエンドで Berkeley DB を使う場合は、あらかじめディレクトリを作成しておく必要があります（ensure-directories-exist を使えばいいと思います）。

永続化するクラスは elephant:defpclass で作成します。
クラスオプションの :index に t を指定するとインスタンスは自動的に永続化されます。

elephant:defpclass で作成したクラスはユニークな識別子となる oid スロットを持ちます。

永続化したクラスの全インスタンスを取得するには elephant:get-instances-by-class を使います。

データストアからインスタンスを削除するには elephant:drop-instances を使います。

以下、ソースです。メモリ上にリストで保持していたときよりも少しシンプルになりました。

;; ucw がロードされていなければロードする。
(eval-when (:load-toplevel :compile-toplevel :execute)
  (require :elephant)                   ; Elephant
  (unless (find-package :ucw)
    ;; UCW の start.lisp をロードする。パスは環境にあわせて修正してください。
    (load (merge-pathnames "letter/lisp/ucw/ucw-boxset/start.lisp"
                           (user-homedir-pathname)))))

(in-package :it.bese.ucw-user)

;; Elephant のストアをオープンする。バックエンドは Berkeley DB を使います。
(elephant:open-store `(:BDB ,(ensure-directories-exist #p"/tmp/todo/")))

(defvar *todo-list-application*
  (make-instance 'cookie-session-application
                 :url-prefix "/todo/"   ; / で終ること
                 :charset :utf-8        ; 文字コードを UTF-8 に設定
                 :debug-on-error t)     ; エラー時にはデバッガを起動
  "アプリケーションの作成。")

;; アプリケーションをサーバに登録する。
(register-application *default-server* *todo-list-application*)

;; エントリポイントの作成。http://localhost:8080/todo/index.ucw
(defentry-point "index.ucw" (:application *todo-list-application*)
    ()
  (call 'top-window))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; モデル
(elephant:defpclass todo ()
  ((content :initarg :content :accessor content)
   (done :initform nil :accessor done))
  (:index t)                            ; 自動的に永続化されます。
  (:documentation "TODO クラス"))

(defmethod print-object ((todo todo) stream)
  "debug のために"
  (print-unreadable-object (todo stream :type t :identity t)
    (format stream "~a: ~a" (elephant::oid todo) (content todo))))

(defun delete-todo (todo)
  "TODO を削除します。"
  (elephant:drop-instances (list todo)))

(defun get-all-todo ()
  (elephant:get-instances-by-class 'todo))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ビュー
(defcomponent top-window (simple-window-component)
  ((body :initarg :body
                  :accessor body
                  :component todo-list-view))
  (:default-initargs :title "TODO リスト")
  (:documentation "トップウィンドウ。
body に一覧や編集のコンポーネントをセットして画面表示を行う。"))

(defmethod render ((top top-window))
  (<:h1 "TODO リスト")
  ;; body の表示
  (render (body top)))

(defcomponent todo-list-view ()
  ()
  (:documentation "TODO の一覧コンポーネント"))

(defmethod render ((self todo-list-view))
  "TODO の一覧を表示する。"
  (<ucw:a :action (call 'todo-create-view) "新規作成")
  (<:table
   :border 1
   (<:tr (<:th "完了") (<:th "TODO") (<:th "削除"))
   (loop for each in (get-all-todo)
      do (let* ((todo each))
           (<:tr
            (<:td (<:as-html
                   (if (done todo)
                       "済"
                       (<ucw:a
                        :action (done-todo-action self todo)
                        "完了する"))))
            (<:td (<:as-html (content todo)))
            (<:td (<ucw:a :action (delete-todo-action self todo)
                          "削除する")))))))

(defaction done-todo-action ((self todo-list-view) todo)
  "TODO を完了する。"
  (setf (done todo) t))

(defaction delete-todo-action ((self todo-list-view) id)
  "TODO を1件削除する。"
  (delete-todo id))

(defcomponent todo-create-view ()
  ((content
    :accessor content
    :initform (make-instance 'string-field)))
  (:documentation "TODO を新規作成するためのコンポーネント"))

(defmethod render ((self todo-create-view))
  "TODO 新規作成画面"
  (<ucw:form
   :action (create-todo self)
   "TODO" (render (content self))
   (<:submit :value "新規作成"))
  (<ucw:a :action (ok self) "キャンセル"))

(defaction create-todo ((self todo-create-view))
  "画面からの入力により TODO を新規作成する。"
  (make-instance 'todo :content (value (content self)))
  (ok self))

CLIM(McCLIM) で Hello World! まで

McCLIM とは CLIM(Common Lisp Interface Manager) のオープンソースの実装です。
CLIM はユーザインターフェイスを構築するためのポータブルの機能階層提供する Lisp をベースとしたプログラミングインターフェースです。
具体的にはウィンドウ、グラフィック、ストリーム指向の入出力などの機能を提供します。

では、Hello World! です。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :clx)
  (require :mcclim))

(in-package :clim-user)

(define-application-frame hello-frame ()
  ()
  (:pane (make-pane 'application-pane :display-function #'display-hello ))
  (:geometry :width 400 :height 200))

(defmethod display-hello ((hello-frame hello-frame) stream)
  (format stream "Hello World!"))

(run-frame-top-level (make-application-frame 'hello-frame))

define-application-frame でトップレベルのウィンドウを定義します。
ウィンドウ内の部品はペイン（pane）と呼ばれ、application-pane を作り、表示関数に format を使って "Hello World!" を表示するメソッドを指定しています。
CLIM では入出力がストリームベースとなっているため、format のような普通の入出力関数をこのようなところで使うことができるようです。

次のようにしてデモを起動することができます。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :clx)
  (require :mcclim)
  (require :clim-examples))
(clim-demo::demodemo)

祖父が他界しました。

94歳でした。
立派な人でした。

Common Lisp で XML をいじる

Closure XML Parser http://common-lisp.net/project/cxml/ を使って XML をいじってみます。

準備

CVS で最新バージョンを取得します。

cvs -d :pserver:anonymous:anonymous@common-lisp.net:/project/cxml/cvsroot co cxml
cvs -d :pserver:anonymous:anonymous@common-lisp.net:/project/cxml/cvsroot co closure-common

いつもの手順で asdf:*central-registry* に登録します。

Quick Start

まずは require です。

(require :cxml)

お試し用の XML ファイルを作成します。

(with-open-file (out "/tmp/try.xml" :direction :output
                :element-type '(unsigned-byte 8)
                :if-exists :supersede)
 (cxml:with-xml-output
     (cxml:make-octet-stream-sink out :indentation 2 :canonical nil)
   (cxml:with-element "try"
     (cxml:attribute "title" "XML")
     (cxml:with-element "para"
       (cxml:text "試してみよう。")))))

DOM でいじってみます。

(let* ((builder (cxml-dom:make-dom-builder)) ;DOM ビルダーを作る
       (dom (cxml:parse-file "/tmp/try.xml" builder)) ;パースする
       (try-element (dom:document-element dom)))      ;エレメントを取得
  (format t "DOM オブジェクト: ~a~%" dom)
 (format t "try タグ(~a)のタグ名: ~a, title属性の値: ~a~%"
         try-element
         (dom:tag-name try-element)    ;タグ名を取得
          (dom:get-attribute try-element "title"))) ;属性値を取得

リストでいじってみます。

リストから XML ファイルを出力します。

(with-open-file (out "/tmp/try.xml" :direction :output
                :element-type '(unsigned-byte 8)
                :if-exists :supersede)
 (cxml-xmls:map-node (cxml:make-octet-stream-sink out)
                     '("try" (("title" "XML")) ("para" nil "リストから出力。"))
                     :include-namespace-uri nil))

XML から リストを取得します。

(cxml:parse-file "/tmp/try.xml" (cxml-xmls:make-xmls-builder))
;; => ("try" (("title" "XML")) ("para" NIL "リストから出力。"))

給与 話し合いの結果

今月の給与は以前のものに戻っていました。
管理監督者ではなく残業代も支給されるということです。

いまの会社はタイムカードについては管理監督者になったとしてもうたなくてはならないし、毎日の始業・就業時間を記入した勤務表も提出しなければならない、ということでした。
いろいろなっとくいかないような気もしますが、もとの給与体系に戻ったのでよしとしましょう。

DocBook のメモ

ちょっと DocBook を調べたのでメモしておきます。

参考図書
DocBook: The Definitive Guide
DocBook XSL: The Complete Guide

セットアップ
必要なパッケージ

最低限必要なパッケージはたぶん次のものす。

docbook
docbook-xml
sgml-base
opensp
emacs
psgml

環境変数の設定

文字コードに UTF-8 を使用するので、次のように環境変数をセットしました。

Example 1. 環境変数の設定
export SP_BCTF=utf-8

検証

C-c C-v で onsgmls を使って入力した文章を検証することができます。

Example 2. 検証コマンド
onsgmls -wxml -e -g -s -u /usr/share/sgml/declaration/xml.dcl memo.xml


xmllint というのもあります。

Example 3. xmmlint
xmllint --valid --noout memo.xml

変換

DocBook は xsltproc コマンド等によってスタイルシートに基づいて HTML 等に変化されます。
HTML への変換

DocBook を HTML に変換してみます。
1ファイルの HTML への変換

1ファイルの HTML への変換には html/docbook.xls スタイルシートを使います。

Example 4. 1ファイルの HTML への変換
xsltproc -o dst.html /usr/share/xml/docbook/stylesheet/nwalsh/html/docbook.xsl src.xml


src.xml を -o オプションで指定した dst.html に変換します。
複数ファイルの HTML への変換

複数の HTML に分割して変換するには html/chunk.xsl スタイルシートを使います。出力ファイルは指定しません。デフォルトで index.html がトップページとして出力されます。

Example 5. 複数ファイルの HTML への変換
xsltproc /usr/share/xml/docbook/stylesheet/nwalsh/html/chunk.xsl src.xml


root.filename パラメータでトップページのファイル名を index.html 以外にすることができます。

トップページ以外のファイル名も DocBook 中で明示的に指定したり、id 属性をファイル名にしたり、自動で生成してくれたりします。
その他いろいろ

実にいろいろなことができるみたい。CSS スタイルシートやアイコン。HTML の インデント。エンコーディング指定。などなど。おもしろい。
PDF への変換

PDF への変換でどうしても日本語フォントが表示できないと悩んでいたら、問題は PDF ビューアの方にありました。xpdf, evince ともだめで、Adobe Reader では表示されました。どうやら埋め込みの TrueType フォントを表示できるかどうかとうい問題だったようです。(日本語フォントの設定は Makefile と userconfig.xml を参照)

そうすると、次の問題は埋め込み TrueType フォントではなく Ryumin-Light の Type1 フォントを使う方法ですね。

それにしても、仕上がりはどうしようもなくきたない。いろいろ設定が必要なのかもしれない。日本語の組版に対応していないのかな。Couldn't find hyphenation pattern en というエラーメッセージも出てるし。うぅむ。

Makefile

SRC=memo

XLS=/usr/share/xml/docbook/stylesheet/nwalsh

FOP=fop
#FOP=/home/ancient/tmp/fop-0.94/fop

#JLIB=/usr/share/java

SAZANAMI_GOTHIC=/usr/share/fonts/truetype/sazanami/sazanami-gothic.ttf
SAZANAMI_MINCHO=/usr/share/fonts/truetype/sazanami/sazanami-mincho.ttf

html:
        xsltproc -o $(SRC).html $(XLS)/html/docbook.xsl $(SRC).xml
        opera $(SRC).html

chunk:
        xsltproc $(XLS)/html/chunk.xsl $(SRC).xml
        opera index.html

fo:
        xsltproc -o $(SRC).fo \
          --stringparam body.font.family Mincho \
          --stringparam title.font.family Gothic \
          $(XLS)/fo/docbook.xsl $(SRC).xml
        $(FOP) -c userconfig.xml -fo $(SRC).fo -pdf $(SRC).pdf
        acroread $(SRC).pdf

#         --stringparam body.start.indent 0pc \

font:
        fop-ttfreader $(SAZANAMI_GOTHIC) fonts/sazanami-gothic.xml
        fop-ttfreader $(SAZANAMI_MINCHO) fonts/sazanami-mincho.xml

word:
        xsltproc -o $(SRC)-word.xml --stringparam wordml.template template.xml $(XLS)/roundtrip/docbook.xsl $(SRC).xml
        openoffice $(SRC)-word.xml

clean:
        rm -f *.html *~

userconfig.xml

<fop version="1.0">
  <renderers>
    <renderer mime="application/pdf">
      <fonts>
        <font  metrics-url="file:///home/ancient/letter/docbook/memo/fonts/sazanami-gothic.xml"
               kerning="yes"
               embed-url="file:///usr/share/fonts/truetype/sazanami/sazanami-gothic.ttf">
          <font-triplet name="Gothic" style="normal" weight="normal"/>
          <font-triplet name="Gothic" style="normal" weight="bold"/>
          <font-triplet name="Gothic" style="italic" weight="normal"/>
          <font-triplet name="Gothic" style="italic" weight="bold"/>
        </font>
        <font  metrics-url="file:///home/ancient/letter/docbook/memo/fonts/sazanami-mincho.xml"
               kerning="yes"
               embed-url="file:///usr/share/fonts/truetype/sazanami/sazanami-mincho.ttf">
          <font-triplet name="Mincho" style="normal" weight="normal"/>
          <font-triplet name="Mincho" style="normal" weight="bold"/>
          <font-triplet name="Mincho" style="italic" weight="normal"/>
          <font-triplet name="Mincho" style="italic" weight="bold"/>
        </font>
      </fonts>
    </renderer>
  </renderers>
</fop>

memo.xml

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.5//EN" "http://www.oasis-open.org/docbook/xml/4.5/docbookx.dtd">
<article>
  <title>DocBook のメモ</title>

  <sect1>
    <title>セットアップ</title>

    <sect2>
      <title>必要なパッケージ</title>
      <para>最低限必要なパッケージはたぶん次のものす。</para>
      <itemizedlist>
        <listitem>
          <para>docbook</para>
        </listitem>
        <listitem>
          <para>docbook-xml</para>
        </listitem>
        <listitem>
          <para>sgml-base</para>
        </listitem>
        <listitem>
          <para>opensp</para>
        </listitem>
        <listitem>
          <para>emacs</para>
        </listitem>
        <listitem>
          <para>psgml</para>
        </listitem>
      </itemizedlist>
    </sect2>

    <sect2>
      <title>環境変数の設定</title>
      <para>文字コードに UTF-8 を使用するので、次のように環境変数をセットしました。</para>
      <example>
        <title>環境変数の設定</title>
        <programlisting>export SP_BCTF=utf-8</programlisting>
      </example>
    </sect2>

  </sect1>

  <sect1>
    <title>検証</title>
    <para>C-c C-v で onsgmls を使って入力した文章を検証することができます。</para>
    <example>
      <title>検証コマンド</title>
      <programlisting>onsgmls -wxml -e -g -s -u /usr/share/sgml/declaration/xml.dcl memo.xml</programlisting>
    </example>
    <para>xmllint というのもあります。</para>
    <example>
      <title>xmmlint</title>
      <programlisting>xmllint --valid --noout memo.xml</programlisting>
    </example>
  </sect1>

  <sect1>
    <title>変換</title>

    <para>DocBook は xsltproc コマンド等によってスタイルシートに基づいて HTML 等に変化されます。</para>

    <sect2>
      <title>HTML への変換</title>
      <para>DocBook を HTML に変換してみます。</para>


      <sect3>
        <title>1ファイルの HTML への変換</title>
        <para>1ファイルの HTML への変換には html/docbook.xls スタイルシートを使います。</para>
        <example>
          <title>1ファイルの HTML への変換</title>
          <programlisting>xsltproc -o dst.html /usr/share/xml/docbook/stylesheet/nwalsh/html/docbook.xsl src.xml</programlisting>
        </example>
        <para>src.xml を -o オプションで指定した dst.html に変換します。</para>
      </sect3>

      <sect3>
        <title>複数ファイルの HTML への変換</title>
        <para>複数の HTML に分割して変換するには html/chunk.xsl スタイルシートを使います。出力ファイルは指定しません。デフォルトで index.html がトップページとして出力されます。</para>
        <example>
          <title>複数ファイルの HTML への変換</title>
          <programlisting>xsltproc /usr/share/xml/docbook/stylesheet/nwalsh/html/chunk.xsl src.xml</programlisting>
        </example>
        <para>root.filename パラメータでトップページのファイル名を index.html 以外にすることができます。</para>
        <para>トップページ以外のファイル名も DocBook 中で明示的に指定したり、id 属性をファイル名にしたり、自動で生成してくれたりします。</para>
      </sect3>

      <sect3>
        <title>その他いろいろ</title>
        <para>実にいろいろなことができるみたい。CSS スタイルシートやアイコン。HTML の インデント。エンコーディング指定。などなど。おもしろい。</para>
      </sect3>

    </sect2>


    <sect2>
      <title>PDF への変換</title>

      <para>PDF への変換でどうしても日本語フォントが表示できないと悩んでいたら、問題は PDF ビューアの方にありました。xpdf, evince ともだめで、Adobe Reader では表示されました。どうやら埋め込みの TrueType フォントを表示できるかどうかとうい問題だったようです。</para>

      <para>そうすると、次の問題は埋め込み TrueType フォントではなく Ryumin-Light の Type1 フォントを使う方法ですね。</para>

      <para>それにしても、仕上がりはどうしようもなくきたない。いろいろ設定が必要なのかもしれない。日本語の組版に対応していないのかな。Couldn't find hyphenation pattern en というエラーメッセージも出てるし。うぅむ。</para>
    </sect2>
  </sect1>
</article>

クエックブックを Muse で書くようにする

いままで HTML で書いていたクエックブックを Muse で書くようにしました。
<contents> で Table Of Contents を自動的に作ってくれるとこと、<src lang="lisp"> で自動的の強調表示してくれるところが気にいっています。
src タグでの強調表示は Emacs のメジャーモードを lang 属性に指定することによって、Htmlize 機能を使って強調表示してくれます。なので、Emacs のメジャーモードのある言語なら全て強調表示ができます。
それに、Muse のファイル自体読みやすく書きやすい。
ただ処理速度が遅いのがちょっと気になりました。Erlang の方を HTML に変換するには少々時間が必要です。

DocBook もどうかなぁと思っていじってみましたが、S式好きにはどうも XML は耐えられないようです。

[Common Lisp] たまには何か書かないと

ここのところ全然 Lisp をさわってなかったので、何でもいいから書きたくなりました。
それで書いたのが次のコード。
series を使って、/tmp/a 内容を /tmp/b に行番号付きで出力するだけです。
scan-file, collect-file では external-format や if-exists の指定ができないため、scan-stream, collect-stream を使っています。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :series))

(with-open-file (in "/tmp/a")
  (with-open-file (out "/tmp/b" :direction :output :if-exists :supersede)
    (let ((no (series:generator (series:scan-range :from 1))))
      (series:collect-stream
       out (series:scan-stream in #'read-line)
       #'(lambda (line stream)
           (format stream "~a ~a~%" (series:next-in no) line))))))

scan-file, collect-file を使うとこんな感じです。

(let ((no (series:generator (series:scan-range :from 1))))
  (series:collect-file
   "/tmp/c" (series:scan-file "/tmp/a" #'read-line)
   #'(lambda (line stream)
       (format stream "~a ~a~%" (series:next-in no) line))))

やっぱり Common Lisp は楽しい♪

~/.uim

私が Debian 環境で使っている日本語入力 uim のローマ字入力のカスタマイズです。
下記のような ~/.uim を作成してカスタマイズしています。
変数 ja-rk-rule で設定しますが、最初に (require "japanese.scm") が必要です。
Dvorak 配列を使用しているので、ACT と JLOD配列 を基にした配列になっています。

;;;-*- scheme -*-

(require "japanese.scm")

;; Japanese EUC
(set! ja-rk-rule
  '(
    ((("-"). ())("ー" "ー" "ｰ"))
    (((","). ())("、" "、" "､"))
    ((("."). ())("。" "。" "｡"))
    ((("!"). ())("！" "！" "!"))
    ((("\""). ())("”" "”" "\""))
    ;;((("#"). ())("＃" "＃" "#"))
    ;;((("$"). ())("＄" "＄" "$"))
    ;;((("%"). ())("％" "％" "%"))
    ;;((("&"). ())("＆" "＆" "&"))
    ;;((("'"). ())("’" "’" "'"))
    ((("("). ())("（" "（" "("))
    (((")"). ())("）" "）" ")"))
    ;;((("~"). ())("〜" "〜" "~"))
    ;;((("="). ())("＝" "＝" "="))
    ;;((("^"). ())("＾" "＾" "^"))
    ;;((("\\"). ())("\" "\" "\\"))
    ;;((("|"). ())("｜" "｜" "|"))
    ;;((("`"). ())("‘" "‘" "`"))
    ;;((("@"). ())("＠" "＠" "@"))
    ;;((("{"). ())("｛" "｛" "{"))
    ((("["). ())("「" "「" "｢"))
    ;;((("+"). ())("＋" "＋" "+"))
    ;;(((";"). ())("；" "；" ";"))
    ;;((("*"). ())("＊" "＊" "*"))
    ;;(((":"). ())("：" "：" ":"))
    ;;((("}"). ())("｝" "｝" "}"))
    ((("]"). ())("」" "」" "｣"))
    ;;((("<"). ())("＜" "＜" "<"))
    ;;(((">"). ())("＞" "＞" ">"))
    ((("?"). ())("？" "？" "?"))
    ;;((("/"). ())("／" "／" "/"))
    ;;((("_"). ())("＿" "＿" "_"))
    ((("yen"). ())("￥" "￥" "￥")) ;; XXX

    ((("1"). ())("1" "1" "1"))
    ((("2"). ())("2" "2" "2"))
    ((("3"). ())("3" "3" "3"))
    ((("4"). ())("4" "4" "4"))
    ((("5"). ())("5" "5" "5"))
    ((("6"). ())("6" "6" "6"))
    ((("7"). ())("7" "7" "7"))
    ((("8"). ())("8" "8" "8"))
    ((("9"). ())("9" "9" "9"))
    ((("0"). ())("0" "0" "0"))

    ((("a"). ())("あ" "ア" "ｱ"))
    ((("i"). ())("い" "イ" "ｲ"))
    ((("u"). ())("う" "ウ" "ｳ"))
    ((("e"). ())("え" "エ" "ｴ"))
    ((("o"). ())("お" "オ" "ｵ"))

    ((("x" "a"). ())("ぁ" "ァ" "ｧ"))
    ((("x" "i"). ())("ぃ" "ィ" "ｨ"))
    ((("x" "y" "i"). ())("ぃ" "ィ" "ｨ"))
    ((("x" "u"). ())("ぅ" "ゥ" "ｩ"))
    ((("x" "e"). ())("ぇ" "ェ" "ｪ"))
    ((("x" "y" "e"). ())("ぇ" "ェ" "ｪ"))
    ((("x" "o"). ())("ぉ" "ォ" "ｫ"))

    ((("c" "c"). ("c"))("っ" "ッ" "ｯ"))

    ((("c" "a"). ())("か" "カ" "ｶ"))
    ((("c" "i"). ())("き" "キ" "ｷ"))
    ((("c" "u"). ())("く" "ク" "ｸ"))
    ((("c" "e"). ())("け" "ケ" "ｹ"))
    ((("c" "o"). ())("こ" "コ" "ｺ"))
    ((("c" "'"). ())(("か" "カ" "ｶ") ("い" "イ" "ｲ")))
    ((("c" "("). ())(("こ" "コ" "ｺ") ("う" "ウ" "ｳ")))
    ((("c" ")"). ())(("け" "ケ" "ｹ") ("い" "イ" "ｲ")))
    ((("c" "p"). ())(("く" "ク" "ｸ") ("う" "ウ" "ｳ")))
    ((("c" "y"). ())(("き" "キ" "ｷ") ("い" "イ" "ｲ")))
    ((("c" ";"). ())(("か" "カ" "ｶ") ("ん" "ン" "ﾝ")))
    ((("c" "q"). ())(("こ" "コ" "ｺ") ("ん" "ン" "ﾝ")))
    ((("c" "j"). ())(("け" "ケ" "ｹ") ("ん" "ン" "ﾝ")))
    ((("c" "k"). ())(("く" "ク" "ｸ") ("ん" "ン" "ﾝ")))
    ((("c" "x"). ())(("き" "キ" "ｷ") ("ん" "ン" "ﾝ")))
    ((("c" "h" "a"). ())(("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ")))
    ((("c" "h" "i"). ())(("き" "キ" "ｷ") ("ぃ" "ィ" "ｨ")))
    ((("c" "h" "u"). ())(("き" "キ" "ｷ") ("ゅ" "ュ" "ｭ")))
    ((("c" "h" "e"). ())(("き" "キ" "ｷ") ("ぇ" "ェ" "ｪ")))
    ((("c" "h" "o"). ())(("き" "キ" "ｷ") ("ょ" "ョ" "ｮ")))
    ((("c" "h" "'"). ())(("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("c" "h" "y"). ())(("き" "キ" "ｷ") ("ぃ" "ィ" "ｨ") ("う" "ウ" "ｳ")))
    ((("c" "h" "p"). ())(("き" "キ" "ｷ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("c" "h" ")"). ())(("き" "キ" "ｷ") ("ぇ" "ェ" "ｪ") ("う" "ウ" "ｳ")))
    ((("c" "h" "("). ())(("き" "キ" "ｷ") ("ょ" "ョ" "ｮ") ("い" "イ" "ｲ")))
    ((("c" "h" ";"). ())(("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("c" "h" "x"). ())(("き" "キ" "ｷ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("c" "h" "k"). ())(("き" "キ" "ｷ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("c" "h" "j"). ())(("き" "キ" "ｷ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("c" "h" "q"). ())(("き" "キ" "ｷ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("g" "g"). ("g"))("っ" "ッ" "ｯ"))

    ((("g" "a"). ())("が" "ガ" "ｶﾞ"))
    ((("g" "i"). ())("ぎ" "ギ" "ｷﾞ"))
    ((("g" "u"). ())("ぐ" "グ" "ｸﾞ"))
    ((("g" "e"). ())("げ" "ゲ" "ｹﾞ"))
    ((("g" "o"). ())("ご" "ゴ" "ｺﾞ"))
    ((("g" "'"). ())(("が" "ガ" "ｶﾞ") ("い" "イ" "ｲ")))
    ((("g" "y"). ())(("ぐ" "グ" "ｸﾞ") ("い" "イ" "ｲ")))
    ((("g" "p"). ())(("ぐ" "グ" "ｸﾞ") ("う" "ウ" "ｳ")))
    ((("g" ")"). ())(("げ" "ゲ" "ｹﾞ") ("い" "イ" "ｲ")))
    ((("g" "("). ())(("ご" "ゴ" "ｺﾞ") ("う" "ウ" "ｳ")))
    ((("g" ";"). ())(("が" "ガ" "ｶﾞ") ("ん" "ン" "ﾝ")))
    ((("g" "x"). ())(("ぎ" "ギ" "ｷﾞ") ("ん" "ン" "ﾝ")))
    ((("g" "k"). ())(("ぐ" "グ" "ｸﾞ") ("ん" "ン" "ﾝ")))
    ((("g" "j"). ())(("げ" "ゲ" "ｹﾞ") ("ん" "ン" "ﾝ")))
    ((("g" "q"). ())(("ご" "ゴ" "ｺﾞ") ("ん" "ン" "ﾝ")))
    ((("g" "n" "a"). ())(("ぎ" "ギ" "ｷﾞ") ("ゃ" "ャ" "ｬ")))
    ((("g" "n" "i"). ())(("ぎ" "ギ" "ｷﾞ") ("ぃ" "ィ" "ｨ")))
    ((("g" "n" "u"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ")))
    ((("g" "n" "e"). ())(("ぎ" "ギ" "ｷﾞ") ("ぇ" "ェ" "ｪ")))
    ((("g" "n" "o"). ())(("ぎ" "ギ" "ｷﾞ") ("ょ" "ョ" "ｮ")))
    ((("g" "n" "'"). ())(("ぎ" "ギ" "ｷﾞ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("g" "n" "y"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("g" "n" "p"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("g" "n" ")"). ())(("ぎ" "ギ" "ｷﾞ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("g" "n" "("). ())(("ぎ" "ギ" "ｷﾞ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("g" "n" ";"). ())(("ぎ" "ギ" "ｷﾞ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("g" "n" "x"). ())(("ぎ" "ギ" "ｷﾞ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("g" "n" "k"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("g" "n" "j"). ())(("ぎ" "ギ" "ｷﾞ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("g" "n" "q"). ())(("ぎ" "ギ" "ｷﾞ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("s" "s"). ("s"))("っ" "ッ" "ｯ"))

    ((("s" "a"). ())("さ" "サ" "ｻ"))
    ((("s" "i"). ())("し" "シ" "ｼ"))
    ((("s" "u"). ())("す" "ス" "ｽ"))
    ((("s" "e"). ())("せ" "セ" "ｾ"))
    ((("s" "o"). ())("そ" "ソ" "ｿ"))
    ((("s" "'"). ())(("さ" "サ" "ｻ") ("い" "イ" "ｲ")))
    ((("s" "y"). ())(("す" "ス" "ｽ") ("い" "イ" "ｲ")))
    ((("s" "p"). ())(("す" "ス" "ｽ") ("う" "ウ" "ｳ")))
    ((("s" ")"). ())(("せ" "セ" "ｾ") ("い" "イ" "ｲ")))
    ((("s" "("). ())(("そ" "ソ" "ｿ") ("う" "ウ" "ｳ")))
    ((("s" ";"). ())(("さ" "サ" "ｻ") ("ん" "ン" "ﾝ")))
    ((("s" "x"). ())(("し" "シ" "ｼ") ("ん" "ン" "ﾝ")))
    ((("s" "k"). ())(("す" "ス" "ｽ") ("ん" "ン" "ﾝ")))
    ((("s" "j"). ())(("せ" "セ" "ｾ") ("ん" "ン" "ﾝ")))
    ((("s" "q"). ())(("そ" "ソ" "ｿ") ("ん" "ン" "ﾝ")))

    ((("s" "h" "a"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ")))
    ((("s" "h" "i"). ())(("し" "シ" "ｼ") ("ぃ" "ィ" "ｨ")))
    ((("s" "h" "u"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ")))
    ((("s" "h" "e"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ")))
    ((("s" "h" "o"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ")))
    ((("s" "h" "'"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("s" "h" "y"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("s" "h" "p"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("s" "h" ")"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("s" "h" "("). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("s" "h" ";"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("s" "h" "x"). ())(("し" "シ" "ｼ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("s" "h" "k"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("s" "h" "j"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("s" "h" "q"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("z" "z"). ("z"))("っ" "ッ" "ｯ"))

    ((("z" "a"). ())("ざ" "ザ" "ｻﾞ"))
    ((("z" "i"). ())("じ" "ジ" "ｼﾞ"))
    ((("z" "u"). ())("ず" "ズ" "ｽﾞ"))
    ((("z" "e"). ())("ぜ" "ゼ" "ｾﾞ"))
    ((("z" "o"). ())("ぞ" "ゾ" "ｿﾞ"))
    ((("z" "'"). ())(("ざ" "ザ" "ｻﾞ") ("い" "イ" "ｲ")))
    ((("z" "y"). ())(("ず" "ズ" "ｽﾞ") ("い" "イ" "ｲ")))
    ((("z" "p"). ())(("ず" "ズ" "ｽﾞ") ("う" "ウ" "ｳ")))
    ((("z" ")"). ())(("ぜ" "ゼ" "ｾﾞ") ("い" "イ" "ｲ")))
    ((("z" "("). ())(("ぞ" "ゾ" "ｿﾞ") ("う" "ウ" "ｳ")))
    ((("z" ";"). ())(("ざ" "ザ" "ｻﾞ") ("ん" "ン" "ﾝ")))
    ((("z" "x"). ())(("じ" "ジ" "ｼﾞ") ("ん" "ン" "ﾝ")))
    ((("z" "k"). ())(("ず" "ズ" "ｽﾞ") ("ん" "ン" "ﾝ")))
    ((("z" "j"). ())(("ぜ" "ゼ" "ｾﾞ") ("ん" "ン" "ﾝ")))
    ((("z" "q"). ())(("ぞ" "ゾ" "ｿﾞ") ("ん" "ン" "ﾝ")))
    ((("z" "h" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
    ((("z" "h" "i"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ")))
    ((("z" "h" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
    ((("z" "h" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
    ((("z" "h" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
    ((("z" "h" "'"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("z" "h" "y"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("z" "h" "p"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("z" "h" ")"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("z" "h" "("). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("z" "h" ";"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("z" "h" "x"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("z" "h" "k"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("z" "h" "j"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("z" "h" "q"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("t" "t"). ("t"))("っ" "ッ" "ｯ"))

    ((("t" "a"). ())("た" "タ" "ﾀ"))
    ((("t" "i"). ())("ち" "チ" "ﾁ"))
    ((("t" "u"). ())("つ" "ツ" "ﾂ"))
    ((("t" "e"). ())("て" "テ" "ﾃ"))
    ((("t" "o"). ())("と" "ト" "ﾄ"))
    ((("t" "'"). ())(("た" "タ" "ﾀ") ("い" "イ" "ｲ")))
    ((("t" "y"). ())(("つ" "ツ" "ﾂ") ("い" "イ" "ｲ")))
    ((("t" "p"). ())(("つ" "ツ" "ﾂ") ("う" "ウ" "ｳ")))
    ((("t" ")"). ())(("て" "テ" "ﾃ") ("い" "イ" "ｲ")))
    ((("t" "("). ())(("と" "ト" "ﾄ") ("う" "ウ" "ｳ")))
    ((("t" ";"). ())(("た" "タ" "ﾀ") ("ん" "ン" "ﾝ")))
    ((("t" "x"). ())(("ち" "チ" "ﾁ") ("ん" "ン" "ﾝ")))
    ((("t" "k"). ())(("つ" "ツ" "ﾂ") ("ん" "ン" "ﾝ")))
    ((("t" "j"). ())(("て" "テ" "ﾃ") ("ん" "ン" "ﾝ")))
    ((("t" "q"). ())(("と" "ト" "ﾄ") ("ん" "ン" "ﾝ")))

    ((("t" "h" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
    ((("t" "h" "i"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ")))
    ((("t" "h" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
    ((("t" "h" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
    ((("t" "h" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
    ((("t" "h" "'"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("t" "h" "y"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("t" "h" "p"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("t" "h" ")"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("t" "h" "("). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("t" "h" ";"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("t" "h" "x"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("t" "h" "k"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("t" "h" "j"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("t" "h" "q"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("t" "s" "a"). ())(("つ" "ツ" "ﾂ") ("ぁ" "ァ" "ｧ")))
    ((("t" "s" "i"). ())(("つ" "ツ" "ﾂ") ("ぃ" "ィ" "ｨ")))
    ((("t" "s" "u"). ())("つ" "ツ" "ﾂ"))
    ((("t" "s" "e"). ())(("つ" "ツ" "ﾂ") ("ぇ" "ェ" "ｪ")))
    ((("t" "s" "o"). ())(("つ" "ツ" "ﾂ") ("ぉ" "ォ" "ｫ")))

    ((("x" "t" "u"). ())("っ" "ッ" "ｯ"))
    ((("x" "t" "s" "u"). ())("っ" "ッ" "ｯ"))

    ((("d" "a"). ())("だ" "ダ" "ﾀﾞ"))
    ((("d" "i"). ())("ぢ" "ヂ" "ﾁﾞ"))
    ((("d" "u"). ())("づ" "ヅ" "ﾂﾞ"))
    ((("d" "e"). ())("で" "デ" "ﾃﾞ"))
    ((("d" "o"). ())("ど" "ド" "ﾄﾞ"))
    ((("d" "'"). ())(("だ" "ダ" "ﾀﾞ") ("い" "イ" "ｲ")))
    ((("d" "y"). ())(("づ" "ヅ" "ﾂﾞ") ("い" "イ" "ｲ")))
    ((("d" "p"). ())(("づ" "ヅ" "ﾂﾞ") ("う" "ウ" "ｳ")))
    ((("d" ")"). ())(("で" "デ" "ﾃﾞ") ("い" "イ" "ｲ")))
    ((("d" "("). ())(("ど" "ド" "ﾄﾞ") ("う" "ウ" "ｳ")))
    ((("d" ";"). ())(("だ" "ダ" "ﾀﾞ") ("ん" "ン" "ﾝ")))
    ((("d" "x"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ん" "ン" "ﾝ")))
    ((("d" "k"). ())(("づ" "ヅ" "ﾂﾞ") ("ん" "ン" "ﾝ")))
    ((("d" "j"). ())(("で" "デ" "ﾃﾞ") ("ん" "ン" "ﾝ")))
    ((("d" "q"). ())(("ど" "ド" "ﾄﾞ") ("ん" "ン" "ﾝ")))

    ((("d" "h" "a"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゃ" "ャ" "ｬ")))
    ((("d" "h" "i"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぃ" "ィ" "ｨ")))
    ((("d" "h" "u"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ")))
    ((("d" "h" "e"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぇ" "ェ" "ｪ")))
    ((("d" "h" "o"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ょ" "ョ" "ｮ")))
    ((("d" "h" "'"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("d" "h" "y"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("d" "h" "p"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("d" "h" ")"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("d" "h" "("). ())(("ぢ" "ヂ" "ﾁﾞ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("d" "h" ";"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("d" "h" "x"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("d" "h" "k"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("d" "h" "j"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("d" "h" "q"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("n" "n"). ())("ん" "ン" "ﾝ"))
    ((("n"). ())("ん" "ン" "ﾝ"))

    ((("n" "a"). ())("な" "ナ" "ﾅ"))
    ((("n" "i"). ())("に" "ニ" "ﾆ"))
    ((("n" "u"). ())("ぬ" "ヌ" "ﾇ"))
    ((("n" "e"). ())("ね" "ネ" "ﾈ"))
    ((("n" "o"). ())("の" "ノ" "ﾉ"))
    ((("n" "'"). ())(("な" "ナ" "ﾅ") ("い" "イ" "ｲ")))
    ((("n" "y"). ())(("ぬ" "ヌ" "ﾇ") ("い" "イ" "ｲ")))
    ((("n" "p"). ())(("ぬ" "ヌ" "ﾇ") ("う" "ウ" "ｳ")))
    ((("n" ")"). ())(("ね" "ネ" "ﾈ") ("い" "イ" "ｲ")))
    ((("n" "("). ())(("の" "ノ" "ﾉ") ("う" "ウ" "ｳ")))
    ((("n" ";"). ())(("な" "ナ" "ﾅ") ("ん" "ン" "ﾝ")))
    ((("n" "x"). ())(("に" "ニ" "ﾆ") ("ん" "ン" "ﾝ")))
    ((("n" "k"). ())(("ぬ" "ヌ" "ﾇ") ("ん" "ン" "ﾝ")))
    ((("n" "j"). ())(("ね" "ネ" "ﾈ") ("ん" "ン" "ﾝ")))
    ((("n" "q"). ())(("の" "ノ" "ﾉ") ("ん" "ン" "ﾝ")))

    ((("n" "h" "a"). ())(("に" "ニ" "ﾆ") ("ゃ" "ャ" "ｬ")))
    ((("n" "h" "i"). ())(("に" "ニ" "ﾆ") ("ぃ" "ィ" "ｨ")))
    ((("n" "h" "u"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ")))
    ((("n" "h" "e"). ())(("に" "ニ" "ﾆ") ("ぇ" "ェ" "ｪ")))
    ((("n" "h" "o"). ())(("に" "ニ" "ﾆ") ("ょ" "ョ" "ｮ")))
    ((("n" "h" "'"). ())(("に" "ニ" "ﾆ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("n" "h" "y"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("n" "h" "p"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("n" "h" ")"). ())(("に" "ニ" "ﾆ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("n" "h" "("). ())(("に" "ニ" "ﾆ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("n" "h" ";"). ())(("に" "ニ" "ﾆ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("n" "h" "x"). ())(("に" "ニ" "ﾆ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("n" "h" "k"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("n" "h" "j"). ())(("に" "ニ" "ﾆ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("n" "h" "q"). ())(("に" "ニ" "ﾆ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("h" "h"). ("h"))("っ" "ッ" "ｯ"))

    ((("h" "a"). ())("は" "ハ" "ﾊ"))
    ((("h" "i"). ())("ひ" "ヒ" "ﾋ"))
    ((("h" "u"). ())("ふ" "フ" "ﾌ"))
    ((("h" "e"). ())("へ" "ヘ" "ﾍ"))
    ((("h" "o"). ())("ほ" "ホ" "ﾎ"))
    ((("h" "'"). ())(("は" "ハ" "ﾊ") ("い" "イ" "ｲ")))
    ((("h" "y"). ())(("ふ" "フ" "ﾌ") ("い" "イ" "ｲ")))
    ((("h" "p"). ())(("ふ" "フ" "ﾌ") ("う" "ウ" "ｳ")))
    ((("h" ")"). ())(("へ" "ヘ" "ﾍ") ("い" "イ" "ｲ")))
    ((("h" "("). ())(("ほ" "ホ" "ﾎ") ("う" "ウ" "ｳ")))
    ((("h" ";"). ())(("は" "ハ" "ﾊ") ("ん" "ン" "ﾝ")))
    ((("h" "x"). ())(("ひ" "ヒ" "ﾋ") ("ん" "ン" "ﾝ")))
    ((("h" "k"). ())(("ふ" "フ" "ﾌ") ("ん" "ン" "ﾝ")))
    ((("h" "j"). ())(("へ" "ヘ" "ﾍ") ("ん" "ン" "ﾝ")))
    ((("h" "q"). ())(("ほ" "ホ" "ﾎ") ("ん" "ン" "ﾝ")))

    ((("h" "n" "a"). ())(("ひ" "ヒ" "ﾋ") ("ゃ" "ャ" "ｬ")))
    ((("h" "n" "i"). ())(("ひ" "ヒ" "ﾋ") ("ぃ" "ィ" "ｨ")))
    ((("h" "n" "u"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ")))
    ((("h" "n" "e"). ())(("ひ" "ヒ" "ﾋ") ("ぇ" "ェ" "ｪ")))
    ((("h" "n" "o"). ())(("ひ" "ヒ" "ﾋ") ("ょ" "ョ" "ｮ")))
    ((("h" "n" "'"). ())(("ひ" "ヒ" "ﾋ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("h" "n" "y"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("h" "n" "p"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("h" "n" ")"). ())(("ひ" "ヒ" "ﾋ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("h" "n" "("). ())(("ひ" "ヒ" "ﾋ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("h" "n" ";"). ())(("ひ" "ヒ" "ﾋ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("h" "n" "x"). ())(("ひ" "ヒ" "ﾋ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("h" "n" "k"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("h" "n" "j"). ())(("ひ" "ヒ" "ﾋ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("h" "n" "q"). ())(("ひ" "ヒ" "ﾋ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("b" "b"). ("b"))("っ" "ッ" "ｯ"))

    ((("b" "a"). ())("ば" "バ" "ﾊﾞ"))
    ((("b" "i"). ())("び" "ビ" "ﾋﾞ"))
    ((("b" "u"). ())("ぶ" "ブ" "ﾌﾞ"))
    ((("b" "e"). ())("べ" "ベ" "ﾍﾞ"))
    ((("b" "o"). ())("ぼ" "ボ" "ﾎﾞ"))
    ((("b" "'"). ())(("ば" "バ" "ﾊﾞ") ("い" "イ" "ｲ")))
    ((("b" "y"). ())(("ぶ" "ブ" "ﾌﾞ") ("い" "イ" "ｲ")))
    ((("b" "p"). ())(("ぶ" "ブ" "ﾌﾞ") ("う" "ウ" "ｳ")))
    ((("b" ")"). ())(("べ" "ベ" "ﾍﾞ") ("い" "イ" "ｲ")))
    ((("b" "("). ())(("ぼ" "ボ" "ﾎﾞ") ("う" "ウ" "ｳ")))
    ((("b" ";"). ())(("ば" "バ" "ﾊﾞ") ("ん" "ン" "ﾝ")))
    ((("b" "x"). ())(("び" "ビ" "ﾋﾞ") ("ん" "ン" "ﾝ")))
    ((("b" "k"). ())(("ぶ" "ブ" "ﾌﾞ") ("ん" "ン" "ﾝ")))
    ((("b" "j"). ())(("べ" "ベ" "ﾍﾞ") ("ん" "ン" "ﾝ")))
    ((("b" "q"). ())(("ぼ" "ボ" "ﾎﾞ") ("ん" "ン" "ﾝ")))

    ((("b" "n" "a"). ())(("び" "ビ" "ﾋﾞ") ("ゃ" "ャ" "ｬ")))
    ((("b" "n" "i"). ())(("び" "ビ" "ﾋﾞ") ("ぃ" "ィ" "ｨ")))
    ((("b" "n" "u"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ")))
    ((("b" "n" "e"). ())(("び" "ビ" "ﾋﾞ") ("ぇ" "ェ" "ｪ")))
    ((("b" "n" "o"). ())(("び" "ビ" "ﾋﾞ") ("ょ" "ョ" "ｮ")))
    ((("b" "n" "'"). ())(("び" "ビ" "ﾋﾞ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("b" "n" "y"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("b" "n" "p"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("b" "n" ")"). ())(("び" "ビ" "ﾋﾞ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("b" "n" "("). ())(("び" "ビ" "ﾋﾞ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("b" "n" ";"). ())(("び" "ビ" "ﾋﾞ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("b" "n" "x"). ())(("び" "ビ" "ﾋﾞ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("b" "n" "k"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("b" "n" "j"). ())(("び" "ビ" "ﾋﾞ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("b" "n" "q"). ())(("び" "ビ" "ﾋﾞ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("f" "f"). ("f"))("っ" "ッ" "ｯ"))

    ((("f" "a"). ())("ぱ" "パ" "ﾊﾟ"))
    ((("f" "i"). ())("ぴ" "ピ" "ﾋﾟ"))
    ((("f" "u"). ())("ぷ" "プ" "ﾌﾟ"))
    ((("f" "e"). ())("ぺ" "ペ" "ﾍﾟ"))
    ((("f" "o"). ())("ぽ" "ポ" "ﾎﾟ"))
    ((("f" "'"). ())(("ぱ" "パ" "ﾊﾟ") ("い" "イ" "ｲ")))
    ((("f" "y"). ())(("ぷ" "プ" "ﾌﾟ") ("い" "イ" "ｲ")))
    ((("f" "p"). ())(("ぷ" "プ" "ﾌﾟ") ("う" "ウ" "ｳ")))
    ((("f" ")"). ())(("ぺ" "ペ" "ﾍﾟ") ("い" "イ" "ｲ")))
    ((("f" "("). ())(("ぽ" "ポ" "ﾎﾟ") ("う" "ウ" "ｳ")))
    ((("f" ";"). ())(("ぱ" "パ" "ﾊﾟ") ("ん" "ン" "ﾝ")))
    ((("f" "x"). ())(("ぴ" "ピ" "ﾋﾟ") ("ん" "ン" "ﾝ")))
    ((("f" "k"). ())(("ぷ" "プ" "ﾌﾟ") ("ん" "ン" "ﾝ")))
    ((("f" "j"). ())(("ぺ" "ペ" "ﾍﾟ") ("ん" "ン" "ﾝ")))
    ((("f" "q"). ())(("ぽ" "ポ" "ﾎﾟ") ("ん" "ン" "ﾝ")))

    ((("f" "n" "a"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゃ" "ャ" "ｬ")))
    ((("f" "n" "i"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぃ" "ィ" "ｨ")))
    ((("f" "n" "u"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ")))
    ((("f" "n" "e"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぇ" "ェ" "ｪ")))
    ((("f" "n" "o"). ())(("ぴ" "ピ" "ﾋﾟ") ("ょ" "ョ" "ｮ")))
    ((("f" "n" "'"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("f" "n" "y"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("f" "n" "p"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("f" "n" ")"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("f" "n" "("). ())(("ぴ" "ピ" "ﾋﾟ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("f" "n" ";"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("f" "n" "x"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("f" "n" "k"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("f" "n" "j"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("f" "n" "q"). ())(("ぴ" "ピ" "ﾋﾟ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("m" "m"). ("m"))("っ" "ッ" "ｯ"))

    ((("m" "b"). ("b"))("ん" "ン" "ﾝ"))
    ((("m" "p"). ("p"))("ん" "ン" "ﾝ"))

    ((("m" "a"). ())("ま" "マ" "ﾏ"))
    ((("m" "i"). ())("み" "ミ" "ﾐ"))
    ((("m" "u"). ())("む" "ム" "ﾑ"))
    ((("m" "e"). ())("め" "メ" "ﾒ"))
    ((("m" "o"). ())("も" "モ" "ﾓ"))
    ((("m" "'"). ())(("ま" "マ" "ﾏ") ("い" "イ" "ｲ")))
    ((("m" "y"). ())(("む" "ム" "ﾑ") ("い" "イ" "ｲ")))
    ((("m" "p"). ())(("む" "ム" "ﾑ") ("う" "ウ" "ｳ")))
    ((("m" ")"). ())(("め" "メ" "ﾒ") ("い" "イ" "ｲ")))
    ((("m" "("). ())(("も" "モ" "ﾓ") ("う" "ウ" "ｳ")))
    ((("m" ";"). ())(("ま" "マ" "ﾏ") ("ん" "ン" "ﾝ")))
    ((("m" "x"). ())(("み" "ミ" "ﾐ") ("ん" "ン" "ﾝ")))
    ((("m" "k"). ())(("む" "ム" "ﾑ") ("ん" "ン" "ﾝ")))
    ((("m" "j"). ())(("め" "メ" "ﾒ") ("ん" "ン" "ﾝ")))
    ((("m" "q"). ())(("も" "モ" "ﾓ") ("ん" "ン" "ﾝ")))

    ((("m" "n" "a"). ())(("み" "ミ" "ﾐ") ("ゃ" "ャ" "ｬ")))
    ((("m" "n" "i"). ())(("み" "ミ" "ﾐ") ("ぃ" "ィ" "ｨ")))
    ((("m" "n" "u"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ")))
    ((("m" "n" "e"). ())(("み" "ミ" "ﾐ") ("ぇ" "ェ" "ｪ")))
    ((("m" "n" "o"). ())(("み" "ミ" "ﾐ") ("ょ" "ョ" "ｮ")))
    ((("m" "n" "'"). ())(("み" "ミ" "ﾐ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("m" "n" "y"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("m" "n" "p"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("m" "n" ")"). ())(("み" "ミ" "ﾐ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("m" "n" "("). ())(("み" "ミ" "ﾐ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("m" "n" ";"). ())(("み" "ミ" "ﾐ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("m" "n" "x"). ())(("み" "ミ" "ﾐ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("m" "n" "k"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("m" "n" "j"). ())(("み" "ミ" "ﾐ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("m" "n" "q"). ())(("み" "ミ" "ﾐ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("v" "v"). ("v"))("っ" "ッ" "ｯ"))

    ((("v" "a"). ())("や" "ヤ" "ﾔ"))
    ((("v" "u"). ())("ゆ" "ユ" "ﾕ"))
    ((("v" "e"). ())(("い" "イ" "ｲ") ("ぇ" "ェ" "ｪ")))
    ((("v" "o"). ())("よ" "ヨ" "ﾖ"))
    ((("v" "'"). ())(("や" "ヤ" "ﾔ") ("い" "イ" "ｲ")))
    ((("v" "p"). ())(("い" "イ" "ｲ") ("い" "イ" "ｲ")))
    ((("v" ")"). ())(("い" "イ" "ｲ") ("う" "ウ" "ｳ")))
    ((("v" "("). ())(("よ" "ヨ" "ﾖ") ("う" "ウ" "ｳ")))
    ((("v" ";"). ())(("や" "ヤ" "ﾔ") ("ん" "ン" "ﾝ")))
    ((("v" "k"). ())(("ゆ" "ユ" "ﾕ") ("ん" "ン" "ﾝ")))
    ((("v" "j"). ())(("い" "イ" "ｲ") ("ん" "ン" "ﾝ")))
    ((("v" "q"). ())(("よ" "ヨ" "ﾖ") ("ん" "ン" "ﾝ")))

    ((("v" "h" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ぁ" "ァ" "ｧ")))
    ((("v" "h" "i"). ())(("う゛" "ヴ" "ｳﾞ") ("ぃ" "ィ" "ｨ")))
    ((("v" "h" "u"). ())("う゛" "ヴ" "ｳﾞ"))
    ((("v" "h" "e"). ())(("う゛" "ヴ" "ｳﾞ") ("ぇ" "ェ" "ｪ")))
    ((("v" "h" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ぉ" "ォ" "ｫ")))

    ((("v" "n" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ゃ" "ャ" "ｬ")))
    ((("v" "n" "u"). ())(("う゛" "ヴ" "ｳﾞ") ("ゅ" "ュ" "ｭ")))
    ((("v" "n" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ょ" "ョ" "ｮ")))

    ((("x" "c" "a"). ())("ヵ" "ヵ" "ｶ"))
    ((("x" "k" "a"). ())("ヵ" "ヵ" "ｶ"))
    ((("x" "k" "e"). ())("ヶ" "ヶ" "ｹ"))

    ((("x" "y" "a"). ())("ゃ" "ャ" "ｬ"))
    ((("x" "y" "u"). ())("ゅ" "ュ" "ｭ"))
    ((("x" "y" "o"). ())("ょ" "ョ" "ｮ"))

    ((("r" "r"). ("r"))("っ" "ッ" "ｯ"))

    ((("r" "a"). ())("ら" "ラ" "ﾗ"))
    ((("r" "i"). ())("り" "リ" "ﾘ"))
    ((("r" "u"). ())("る" "ル" "ﾙ"))
    ((("r" "e"). ())("れ" "レ" "ﾚ"))
    ((("r" "o"). ())("ろ" "ロ" "ﾛ"))
    ((("r" "'"). ())(("ら" "ラ" "ﾗ") ("い" "イ" "ｲ")))
    ((("r" "y"). ())(("る" "ル" "ﾙ") ("い" "イ" "ｲ")))
    ((("r" "p"). ())(("る" "ル" "ﾙ") ("う" "ウ" "ｳ")))
    ((("r" ")"). ())(("れ" "レ" "ﾚ") ("い" "イ" "ｲ")))
    ((("r" "("). ())(("ろ" "ロ" "ﾛ") ("う" "ウ" "ｳ")))
    ((("r" ";"). ())(("ら" "ラ" "ﾗ") ("ん" "ン" "ﾝ")))
    ((("r" "x"). ())(("り" "リ" "ﾘ") ("ん" "ン" "ﾝ")))
    ((("r" "k"). ())(("る" "ル" "ﾙ") ("ん" "ン" "ﾝ")))
    ((("r" "j"). ())(("れ" "レ" "ﾚ") ("ん" "ン" "ﾝ")))
    ((("r" "q"). ())(("ろ" "ロ" "ﾛ") ("ん" "ン" "ﾝ")))

    ((("r" "h" "a"). ())(("り" "リ" "ﾘ") ("ゃ" "ャ" "ｬ")))
    ((("r" "h" "i"). ())(("り" "リ" "ﾘ") ("ぃ" "ィ" "ｨ")))
    ((("r" "h" "u"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ")))
    ((("r" "h" "e"). ())(("り" "リ" "ﾘ") ("ぇ" "ェ" "ｪ")))
    ((("r" "h" "o"). ())(("り" "リ" "ﾘ") ("ょ" "ョ" "ｮ")))
    ((("r" "h" "'"). ())(("り" "リ" "ﾘ") ("ゃ" "ャ" "ｬ") ("い" "イ" "ｲ")))
    ((("r" "h" "y"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ") ("い" "イ" "ｲ")))
    ((("r" "h" "p"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ") ("う" "ウ" "ｳ")))
    ((("r" "h" ")"). ())(("り" "リ" "ﾘ") ("ぇ" "ェ" "ｪ") ("い" "イ" "ｲ")))
    ((("r" "h" "("). ())(("り" "リ" "ﾘ") ("ょ" "ョ" "ｮ") ("う" "ウ" "ｳ")))
    ((("r" "h" ";"). ())(("り" "リ" "ﾘ") ("ゃ" "ャ" "ｬ") ("ん" "ン" "ﾝ")))
    ((("r" "h" "x"). ())(("り" "リ" "ﾘ") ("ぃ" "ィ" "ｨ") ("ん" "ン" "ﾝ")))
    ((("r" "h" "k"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ") ("ん" "ン" "ﾝ")))
    ((("r" "h" "j"). ())(("り" "リ" "ﾘ") ("ぇ" "ェ" "ｪ") ("ん" "ン" "ﾝ")))
    ((("r" "h" "q"). ())(("り" "リ" "ﾘ") ("ょ" "ョ" "ｮ") ("ん" "ン" "ﾝ")))

    ((("w" "w"). ("w"))("っ" "ッ" "ｯ"))

    ((("w" "a"). ())("わ" "ワ" "ﾜ"))
    ((("w" "'"). ())(("わ" "ワ" "ﾜ") ("い" "イ" "ｲ")))
    ((("w" ";"). ())(("わ" "ワ" "ﾜ") ("ん" "ン" "ﾝ")))
    ((("w" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
    ((("w" "u"). ())("う" "ウ" "ｳ"))
    ((("w" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
    ((("w" "o"). ())("を" "ヲ" "ｦ"))
    ((("w" "h" "a"). ())(("う" "ウ" "ｳ") ("ぁ" "ァ" "ｧ")))
    ((("w" "h" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
    ((("w" "h" "u"). ())("う" "ウ" "ｳ"))
    ((("w" "h" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
    ((("w" "h" "o"). ())(("う" "ウ" "ｳ") ("ぉ" "ォ" "ｫ")))

    ((("d" "r"). ())(("で" "デ" "ﾃﾞ") ("あ" "ア" "ｱ") ("る" "ル" "ﾙ")))
    ((("d" "s"). ())(("で" "デ" "ﾃﾞ") ("す" "ス" "ｽ")))
    ((("m" "n"). ())(("も" "モ" "ﾓ") ("の" "ノ" "ﾉ")))
    ((("m" "s"). ())(("ま" "マ" "ﾏ") ("す" "ス" "ｽ")))
    ((("c" "r"). ())(("か" "カ" "ｶ") ("ら" "ラ" "ﾗ")))
    ((("n" "d"). ())(("の" "ノ" "ﾉ") ("で" "デ" "ﾃﾞ")))
    ((("s" "r"). ())(("す" "ス" "ｽ") ("る" "ル" "ﾙ")))
    ((("s" "t"). ())(("し" "シ" "ｼ") ("た" "タ" "ﾀ")))
    ((("t" "m"). ())(("た" "タ" "ﾀ") ("め" "メ" "ﾒ")))

    ((("z" "-"). ())("〜" "〜" ""))
    ((("z" "["). ())("『" "『" ""))
    ((("z" "]"). ())("』" "』" ""))
    ((("z" ","). ())("‥" "‥" ""))
    ((("z" "."). ())("…" "…" ""))
    ((("z" "/"). ())("・" "・" "･"))
    ))

(set! ja-wide-rule
  '(("a" "ａ")
    ("b" "ｂ")
    ("c" "ｃ")
    ("d" "ｄ")
    ("e" "ｅ")
    ("f" "ｆ")
    ("g" "ｇ")
    ("h" "ｈ")
    ("i" "ｉ")
    ("j" "ｊ")
    ("k" "ｋ")
    ("l" "ｌ")
    ("m" "ｍ")
    ("n" "ｎ")
    ("o" "ｏ")
    ("p" "ｐ")
    ("q" "ｑ")
    ("r" "ｒ")
    ("s" "ｓ")
    ("t" "ｔ")
    ("u" "ｕ")
    ("v" "ｖ")
    ("w" "ｗ")
    ("x" "ｘ")
    ("y" "ｙ")
    ("z" "ｚ")
    ("A" "Ａ")
    ("B" "Ｂ")
    ("C" "Ｃ")
    ("D" "Ｄ")
    ("E" "Ｅ")
    ("F" "Ｆ")
    ("G" "Ｇ")
    ("H" "Ｈ")
    ("I" "Ｉ")
    ("J" "Ｊ")
    ("K" "Ｋ")
    ("L" "Ｌ")
    ("M" "Ｍ")
    ("N" "Ｎ")
    ("O" "Ｏ")
    ("P" "Ｐ")
    ("Q" "Ｑ")
    ("R" "Ｒ")
    ("S" "Ｓ")
    ("T" "Ｔ")
    ("U" "Ｕ")
    ("V" "Ｖ")
    ("W" "Ｗ")
    ("X" "Ｘ")
    ("Y" "Ｙ")
    ("Z" "Ｚ")

    ("1" "１")
    ("2" "２")
    ("3" "３")
    ("4" "４")
    ("5" "５")
    ("6" "６")
    ("7" "７")
    ("8" "８")
    ("9" "９")
    ("0" "０")

    ("-" "−")
    ("," "，")
    ("." "．")
    ("!" "！")
    ("\"" "”")
    ("#" "＃")
    ("$" "＄")
    ("%" "％")
    ("&" "＆")
    ("'" "’")
    ("(" "（")
    (")" "）")
    ("~" "〜")
    ("=" "＝")
    ("^" "＾")
    ("\\" "\")
    ("yen" "￥")
    ("|" "｜")
    ("`" "‘")
    ("@" "＠")
    ("{" "｛")
    ("[" "［")
    ("+" "＋")
    (";" "；")
    ("*" "＊")
    (":" "：")
    ("}" "｝")
    ("]" "］")
    ("<" "＜")
    (">" "＞")
    ("?" "？")
    ("/" "／")
    ("_"  "＿")
    (" " "　")
    ))