(thread-create
 	(tcp-server 7777 (lambda (str) (list #f (+ "(print \"" (string-upcase str) "\")"))))
)

(thread-sleep 1)

(thread-create
	(def code (tcp-client "127.0.0.1" 7777 ("abcd" "xyz")))
	(for c code
		(print "executing code:" c)
 		(eval (parse c))
	)

	(def code (tcp-client "127.0.0.1" 7777 "abcd"))
	(print "executing code:" code)
 	(eval (parse code))
)
(threads-join)
(print "ok")