anchor.diff:  
   scan([C | Cs], Stack, Toks, {Line, Col}, State, Errors)
       when C >= $\200,
  -	 C =< $ ->                        % Control chars -skip
  +	 C =< $\240 ->                        % Control chars -skip
       scan(Cs, Stack, [{whitespace, {Line,Col}, C}|Toks], {Line, Col + 1}, State, Errors);
   scan([C | Cs], _Stack, Toks, {Line, Col}, State, Errors)
       when C >= $a,
  
positive.code: scan_comment(Eof, Stack, Toks, {Line, Col}, State,
  	     Errors) ->
      [StartPos|S] = reverse(Stack),
      io:format("Stack:\n~p\n", [reverse(Stack)]),
      done(Eof, Errors, [{comment, StartPos, S}|Toks], {Line, Col}, State).
  
  scan_dot([$% | _] = Cs, _Stack, Toks, {Line, Col},
  
negative.code: 	 {Line, Col + 1}, State);
  scan_dot([C | Cs], _Stack, Toks, {Line, Col}, State,
  	 Errors)
      when C >= $\200, C =< $\240 ->
      done(Cs, Errors, [{dot, {Line, Col}} | Toks],
  	 {Line, Col + 1}, State);
  scan_dot([], Stack, Toks, {Line, Col}, State, Errors) ->
  