(defun hello_other(host) 
        (setq buf 
	    (si:STRING-CONCATENATE "Hello to " host " from LISP on " 
	      (si:getenv "HOST"))) 
        (pvm-mytid)
        (pvm-initsend 0)
        (pvm-pkstr buf)
        (pvm-send (pvm-parent) 1)
        (pvm-exit)
)

