(accept-process-output riece-kakasi-process))
(prog1 (buffer-substring (point-min) (1- (point)))
(delete-region (point-min) (point)))))
(accept-process-output riece-kakasi-process))
(prog1 (buffer-substring (point-min) (1- (point)))
(delete-region (point-min) (point)))))