anchor.diff:          fprintfn out "#ifndef %s" macroName
           fprintfn out "# define %s" macroName
   
  -    for ty, name, newName in List.sort exportedValues do
  +    for value in List.sort exportedNames do
           // let newName = Printer.identTable.[int newName]
  -        if ty = "" then
  -            fprintfn out "# define VAR_%s \"%s\"" (name.ToUpper()) newName
  +        if value.ty = "" then
  +            fprintfn out "# define VAR_%s \"%s\"" (value.name.ToUpper()) value.newName
           else
  -            fprintfn out "# define %c_%s \"%s\"" (System.Char.ToUpper ty.[0]) (name.ToUpper()) newName
  +            fprintfn out "# define %s_%s \"%s\"" value.ty (value.name.ToUpper()) value.newName
   
       fprintfn out ""
       for shader in shaders do
  
positive.code:     fprintfn out "; File generated with Shader Minifier %s" Options.version
      fprintfn out "; http://www.ctrl-alt-test.fr"
  
      for ty, name, newName in List.sort exportedValues do
          if ty = "" then
              fprintfn out "_var_%s: db '%s', 0" (name.ToUpper()) newName
          else
              fprintfn out "_%c_%s: db '%s', 0" (System.Char.ToUpper ty.[0]) (name.ToUpper()) newName
  
      fprintfn out ""
      for shader in shaders do
  
negative.code:     fprintfn out " * http://www.ctrl-alt-test.fr"
      fprintfn out " */"
  
      for value in List.sort exportedNames do
          if value.ty = "" then
              fprintfn out "var var_%s = \"%s\"" (value.name.ToUpper()) value.newName
          else
              fprintfn out "var %s_%s = \"%s\"" value.ty (value.name.ToUpper()) value.newName
  
      fprintfn out ""
      for shader in shaders do
  