>>123
(defun hira-kana (str)
(map 'string #'(lambda (c) (code-char (+ (char-code c) 161))) str))

xyzzy-lispで動作確認。