command reactor paste and pasteclip

How would I go about setting up a command reactor for paste and pasteclip? I profess zero knowledge when it comes to reactors.

As a fun pre-4th prank I would like the following to run...

(defun c:speakcopypaste ()
(vl-load-com) 
(setq sapi (vlax-create-object "Sapi.SpVoice" ))
(Setq objFile (vlax-create-object "SAPI.SpFileStream.1"))
(vlax-invoke objFile "open" "V:\\AutoCAD\\Lisp\\copypaste.wav")
(vlax-invoke sapi "Speakstream" objFile)
(vlax-release-object sapi )
(vlax-release-object objFile )
)

Thanks.

Ok here is what I cobbled together.

(vlr-command-reactor 
nil '((:vlr-commandEnded . endCommand)))

(defun endCommand (calling-reactor endcommandInfo / 
	   thecommandend)
(setq thecommandend (nth 0 endcommandInfo))
(cond
 ((= thecommandend "PASTE") (speakcopypaste))
 ((= thecommandend "PASTECLIP") (speakcopypaste)) 
)
(princ)
)
(princ)

(defun speakcopypaste ()
(vl-load-com) 
(setq sapi (vlax-create-object "Sapi.SpVoice" ))
(Setq objFile (vlax-create-object "SAPI.SpFileStream.1"))
(vlax-invoke objFile "open" "V:\\AutoCAD\\Lisp\\copypaste.wav")
(vlax-invoke sapi "Speakstream" objFile)
(vlax-release-object sapi )
(vlax-release-object objFile )
)