anchor.diff:  
   print(Eed, {A, C, E}) ->
     print(Eed, A, C, E).
  +print(Eed, "", ",", "") ->
  +  printAll(Eed);
   print(Eed, "", "", "") ->
     CurLine = sendRecv(Eed, getLineNumber),
     print(Eed, CurLine, CurLine);
  
positive.code: runcmd(Eed, Command) ->
    {match,[[A,C,E,O], _]} = re:run(Command,"([[:digit:]]*)(,?)([[:digit:]]*)([[:alpha:]+-]?)",[global,{capture,all_but_first,list}]),
  
    case {A,C,E,O} of
      {_, _, _, "q"} -> {quit, ""};
      {A, _, _, "a"} -> append(Eed), {ok, ""};
      {A, ",", _, "p"} -> printAll(Eed);
      {A, _, E, "p"} -> print(Eed, {A, C, E});
      {A, _, _, "d"} -> delete(Eed);
      {A, _, _, "+"} -> setLineNumber(Eed, sendRecv(Eed, getLineNumber) + 1);
      {A, _, _, "-"} -> setLineNumber(Eed, sendRecv(Eed, getLineNumber) - 1);
      {"", _, _, ""} -> setLineNumber(Eed, sendRecv(Eed, getLineNumber) + 1);
      {A, _, _, O} -> setLineNumber(Eed, getnum(A))
    end.
  
  cmdloop(Eed) ->
  
negative.code: 
    {ok, ["asdf", "1234"]} = runcmd(Eed, ",p"),
    {ok, "1234"} = runcmd(Eed, "2"),
    %{ok, ["asdf", "1234"]} = runcmd(Eed, "1,2p"),
    
    {ok, "1234"} = runcmd(Eed, "2"),
  
  