anchor.diff:  
   %% (.)i - insert text
   
  -insert_command(Rest, [0], State) ->
  +insert_command(_Rest, [0], _State) ->
       error(bad_linenum);
   insert_command(Rest, [Line], State) ->
       append_command(Rest, [Line-1], State).
   
   %% (.)kx - mark line
   
  -mark_command(_, [0], St) ->
  +mark_command(_, [0], _St) ->
       error(bad_linenum);
  -mark_command([Mark|Rest], [Line], St) when $a =< Mark, Mark =< $z ->
  +mark_command([Mark|_Rest], [_Line], _St) when $a =< Mark, Mark =< $z ->
       error(not_implemented);
   mark_command(_, _, _) ->
       error(bad_mark).
  
positive.code: -author('bjorn@strider').
  
  -export([edit/0, edit/1, file/1, cmd_line/1]).
  
  -record(state, {dot = 0,			% Line number of dot.
  		upto_dot = [],			% Lines up to dot (reversed).
  
negative.code: 	    Other
      end.
  
  scan_forward2(0, [], _State, _RestCmd) ->
      false;
  scan_forward2(Linenum, [Line|Rest], State, RestCmd) ->
      case scan_forward2(Linenum-1, Rest, State, RestCmd) of
  