increment (ip,op) arg_increment = do
  send_increment op arg_increment
  recv_increment ip
increment (ip,op) arg_increment = do
  send_increment op arg_increment
  recv_increment ip
increment (ip,op) arg_increment = do
  send_increment op arg_increment
  recv_increment ip