key binding - global

[Guldo K]

Hello.
I searched the NG with no luck.
I'm trying to achieve an init-keybinding.
I read the specific node of the manual,
but I cannot perform this.
I'd like to assign a key combo to this:
set-language-environment "Japanese"
set-input-method "japanese"

I tried this in my .emacs:
(global-set-key "\C-c\C-k" '(set-input-method "japanese"))
and even this:
(defun Jappo()
  (set-input-method "japanese")
  (set-language-environment "Japanese")
)
(global-set-key "\C-c\C-k" 'Jappo)

but none works.
Can you help me?

Thanks a lot,

*Guldo*