do =: ".
read =: 1!:1@<
write =: 4 : 'x. 1 !: 2  < y.'
write_list =: 4 : '(to_char x.) write y.'
to_char =: 3!:1
(do read 'remote_eval_in') write_list 'remote_eval_out'