anchor.diff:          ; _      -> "HTTP/1.0"
           end
   
  -    , Length = size(Body)
  -    , Headers = [["Content-Length: ", integer_to_list(Length)]]
  +    , Body_bin = iolist_to_binary(Body)
  +    , Length = size(Body_bin)
  +    , Headers = lists:keystore("Content-Length", 1, Headers0, {"Content-Length", integer_to_list(Length)})
   
       , Response =
           [ ResponseVersion, " ", integer_to_list(StatusCode), " ", StatusMessage
           , "\r\n"
  -        , [ [X, "\r\n"] || X <- Headers ]
  +        , [ [Key, ": ", Val, "\r\n"] || {Key, Val} <- Headers ]
           , "\r\n"
  -        , Body
  +        , Body_bin
           ]
   
       , gen_tcp:send(Sock, Response)
  
positive.code:     , listen(Port, Noop)
      .
  
  reply(Sock, Version, Body) when is_list(Body) -> ok
      , reply(Sock, Version, list_to_binary(Body))
      ;
  
  reply(Sock, Version, Body) -> ok
      , StatusCode = 200
      , StatusMessage = "OK"
      , ResponseVersion = case Version
  
negative.code: 
  -module(http_server).
  
  -export([noop/1, echo/1]).
  
  -define(TIMEOUT, 3000).
  
  