iRobotLab

(require "japanese.scm")
(define ja-rk-rule
  (append '((((",") . ()) ("，" "，" "，"))
            (((".") . ()) ("．" "．" "．"))
            ((("z" " "). ())("　" "　" "　")))
          ja-rk-rule))