send_increment op arg_increment = do
  seq <- seqid
  seqn <- readIORef seq
  writeMessageBegin op ("increment", M_CALL, seqn)
  write_Increment_args op (Increment_args{f_Increment_args_increment=Just arg_increment})
  writeMessageEnd op
  tFlush (getTransport op)
send_increment op arg_increment = do
  seq <- seqid
  seqn <- readIORef seq
  writeMessageBegin op ("increment", M_CALL, seqn)
  write_Increment_args op (Increment_args{f_Increment_args_increment=Just arg_increment})
  writeMessageEnd op
  tFlush (getTransport op)
send_increment op arg_increment = do
  seq <- seqid
  seqn <- readIORef seq
  writeMessageBegin op ("increment", M_CALL, seqn)
  write_Increment_args op (Increment_args{f_Increment_args_increment=Just arg_increment})
  writeMessageEnd op
  tFlush (getTransport op)