anchor.diff:  	case CurrTAcc of
   		[] ->
   			parse_inner(Remaining, none, [],
  -				[{word, get(line_num), Str} | AllTAcc]);
  +				[{string, get(line_num), Str} | AllTAcc]);
   		_ ->
   			parse_inner(Remaining, none, [],
  -				[[{word, get(line_num), Str},
  -				  {word, get(line_num), lists:reverse(CurrTAcc)}] | AllTAcc])
  +				[[{string, get(line_num), Str},
  +				  {string, get(line_num), lists:reverse(CurrTAcc)}] | AllTAcc])
   	end;
   
   
  
positive.code: 		[] ->
  			AllTAcc;
  		_ ->
  			[{word, get(line_num), lists:reverse(CurrTAcc)} | AllTAcc]
  	end;
  
  % Escaped characters always get added to current token
  
negative.code: 			parse_inner(Remaining, none, [], AllTAcc);
  		_ ->
  			parse_inner(Remaining, none, [],
  				[{string, get(line_num), lists:reverse(CurrTAcc)} | AllTAcc])
  	end;
  
  % Inline comment started
  