anchor.diff:                  else
                       (str_acc+word, true, 0)
               else
  -                let spaces_count = if newline then ident else 1
  +                let spaces_count = if newline then ident else 2
                   if (String.length word<=windowSize-chars_in_line-spaces_count) then
                       let appended = (String.replicate spaces_count " ")+word
                       (str_acc+appended,false, chars_in_line+(String.length appended))
  
positive.code:         List.collect (fun t ->
              match t with
              | Str(s) -> [(s, ident)]
              | Tabbed(tbList) -> [("\n", ident)]@(printIdentedList tbList (ident+tabSize))@[("\n", ident)]
              | Line(tbList)   -> [("\n", ident)]@(printIdentedList tbList (ident        ))@[("\n", ident)]
          ) tbList
  
      let strList = printIdentedList tbList 0
  
negative.code: 
  let generate (input_grammar:Definition.t<Source.t,Source.t>) =
      let tbList = List.collect (fun rule -> printRule rule) input_grammar.grammar
      printSourceOpt(input_grammar.head)+(printTextBox 4 4 80 tbList)+printSourceOpt(input_grammar.foot)
  