anchor.diff:      | Tcp
       | Udp
   
  -    let start_server protocol (host: string) (port: int) =
  +    let start_server eom_marker protocol (host: string) (port: int) =
           let ipaddress = Dns.GetHostEntry(host).AddressList.[0]
           let endpoint = IPEndPoint(ipaddress, port)
   
  
positive.code:             let rec loop() = 
                  printfn "Waiting for request ..."
                  let socket = listener.Accept()
  
                  // TODO implement
  
                  loop()
              try loop()
  
negative.code: open FDCUtil.Main.Regex
  open FDCDomain.MessageQueue
  open FDCLogger
  
  // persistency layer
  // this should have no dependencies on Domain
  