anchor.diff:  let myprint fmt = 
     Printf.kprintf printer.Post fmt
   
  +
   type RawData = {
       Bytes : byte array
       Size  : int
  
positive.code:                             |> Seq.take receivedBytes
                              |> Seq.tryFindIndex (fun b -> b = byte(0))) with
                          | None -> 
                              do! mem.AsyncWrite(buffer, 0, receivedBytes)
                              return! waitForDataLoop mem count 0 maybeRawReceiver
                          | Some(nullIndex) -> // Found exit
                              do! mem.AsyncWrite(buffer, 0, nullIndex) 
                              let line = analyseCommandLine (mem.ToArray())
                              mem.Dispose()
  
negative.code:                 |> 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)) // until First null byte
                  |> Seq.toArray
      let line = System.Text.Encoding.UTF8.GetString(other)
      let splits = line.Split(' ')
  