(define set-up
  (lambda ()
   (let (;; [process1 (process "ssaphira")]
         [process2 (process "spio_exe")])
     (let (;;[ip1 (car process1)]
;; 	   [op1 (cadr process1)]
;; 	   [pid1 (caddr process1)]
	   [ip2 (car process2)]
	   [op2 (cadr process2)]
	   [pid2 (caddr process2)])
;;       (writeln pid1)
       (writeln pid2)
       (call-forn)
       ))))




(define call-forn
  (lambda ()
    (load-shared-object "./testclient.so")
333))
;    (let ([mymain (foreign-procedure "mymain" () fixnum)])
;      (mymain))))


(define writeln
  (lambda args
    (for-each display args)
    (newline)))