anchor.diff:           append(Pid)
     end.
   
  -test() ->
  -  E = start(),
  -  [] = sendRecv(E, list),
  -  ok.
  +unknown() -> io:format("?~n").
   
  -unknown() ->
  -  io:format("?~n").
  -
  -prompt() ->
  -  "*".
  +prompt() -> "*".
   
   chomp(String) ->
     re:replace(String, "(^\\s+)|(\\s+$)", "", [global, {return,list}]).
   
   getnum(String) ->
  -  try erlang:list_to_integer(String) catch error:_Ex -> 0 end.
  +  try erlang:list_to_integer(String)
  +    catch error:_Ex -> 0
  +  end.
   
   numValid(E, Num) ->
     (Num > 0) and (Num =< sendRecv(E, lineCount)).
  
positive.code:   sendRecv(Pid, Cmd, undef).
  sendRecv(Pid, Cmd, Arg) ->
    Pid ! {self(), {Cmd, Arg}},
    receive {Pid, Msg} -> Msg
    after 2000 -> timeout
    end.
  
  append(Pid) ->
  
negative.code:   E = start(),
    cmdloop(E).
  
  test() ->
    E = start(),
    [] = sendRecv(E, list),
    ok.
  
  