anchor.diff:                  (3, 46)); PLUS;
                   LIDENT ("s", (50, 51)); COLON; PATTERN ("res:int", (54, 61)); EQUAL;
                   LIDENT ("e", (65, 66)); PARAM ("1", (67, 68)); ACTION ("res", (71, 74));
  -                SEMICOLON; LIDENT ("e", (78, 79)); PARAM ("i", (80, 81)); COLON;
  +                SEMICOLON dummyRange; LIDENT ("e", (78, 79)); PARAM ("i", (80, 81)); COLON;
                   LIDENT ("n", (84, 85)); EQUAL; UIDENT ("NUMBER", (86, 92));
  -                ACTION ("(value n |> int) + i", (94, 114)); SEMICOLON; EOF]
  +                ACTION ("(value n |> int) + i", (94, 114)); SEMICOLON dummyRange; EOF]
               {
                info = { fileName = ""; }
                head = Some ("\r\nlet value x = (x:>Lexeme<string>).value\r\n", (3, 46))
  
positive.code: 
      printfn "%A" lexemsList
  
      Assert.AreEqual(lexemsListCorrect, lexemsList)
  
  let preprocessorTest path (expectedIL : t<Source.t,Source.t>) =
      let currentIL = {Main.ParseFile path with info = {fileName =""}}
  
negative.code:              foot = None
               options = Map.empty
              }
          
  