getclip and putclip in cygwin

(defun clip-get ()
"Get contents from clipboard and paste it to current buffer."
(interactive)
(message
"Paste from clipboard")
(call-process "getclip" nil t) )
(defun clip-put ()
"Put current buffer contents to clipboard."
(interactive)
(call-process-region (point-min) (point-max) "putclip" nil 0)
(message "Paste to clipboard"))

(defun clip-reform ()
"Reform contents in clipboard"
(interactive)
(shell-command "getclip|putclip")
(message "Reform Clipboard"))

(global-set-key "\C-cg" 'clip-get)
(global-set-key "\C-cp" 'clip-put)
(global-set-key "\C-cr" 'clip-reform)