anchor.diff:                  |> Seq.toArray
       let other = commandLine
                   |> Seq.skip (id.Length + 1) // Ignore id and the first ' ' (sep between id & command)
  -                |> Seq.takeWhile (fun b -> b <> byte(0))
  +                |> Seq.takeWhile (fun b -> b <> byte(0)) // until First null byte
                   |> Seq.toArray
       let line = System.Text.Encoding.UTF8.GetString(other)
       let splits = line.Split(' ')
  
positive.code: 
  /// Creates a new Mailbox processor which parses the incomming data stream to messages
  let internal createInternalClientProcessorMailbox() = new MailboxProcessor<ClientProcessorMessageInternal>(fun inbox -> 
      let rec waitForDataLoop (mem:MemoryStream) count readBytes (maybeRawReceiver:Option<MailboxProcessor<byte seq>>) = 
          async {
              let! msg = inbox.Receive()
  
negative.code: ﻿/// Implementation of the following protokoll: 
  /// sending messages with: <id> <command> <parameter> RAWDATA <bytecount>\0<rawbytes>
  /// or <id> <command> <parameter>\0
  /// \ has to be escaped to \\ in <parameter>, <command>
  /// " " has to be escaped to "\ " in <parameter>, <command>
  /// \0 has to be escaped in "\0" everywhere but <rawbytes>
  /// <id> is a unique byte array with all bytes > 0x20 (which is the space character)
  ///
  /// The Parter can answer a command with 
  /// <id> _ <parameter> RAWDATA <bytecount>\0<rawbytes>
  /// or
  /// <id> _ <parameter>\0
  /// Where <id> is the same as the matching first message
  
  module MyMessageProcessor
  
  