anchor.diff:  fsi.AddPrinter(fun (x:EtParam) -> sprintf "EtParam:%A" x.Type)
   fsi.AddPrinter(fun (x:EtLambda) -> sprintf "%A" (dbgViewProp.GetValue(x, null)))
   
  -//System.IO.Directory.SetCurrentDirectory(@"C:\Users\fredrikhm.CPBEUROPE\Projects - Personal\IronJS\Src\IronJS")
  -System.IO.Directory.SetCurrentDirectory(@"C:\Users\Fredrik\Projects\IronJS\Src\IronJS")
  +System.IO.Directory.SetCurrentDirectory(@"C:\Users\fredrikhm.CPBEUROPE\Projects - Personal\IronJS\Src\IronJS")
  +//System.IO.Directory.SetCurrentDirectory(@"C:\Users\Fredrik\Projects\IronJS\Src\IronJS")
   
   let jsLexer = new ES3Lexer(new ANTLRFileStream("Testing.js"))
   let jsParser = new ES3Parser(new CommonTokenStream(jsLexer))
  
positive.code:   }
  
  and parse (t:AstTree) = state {
    if parsers.ContainsKey t.Type 
      then return! parsers.[t.Type] t 
      else return  Error(sprintf "No parser for token %s (%i)" ES3Parser.tokenNames.[t.Type] t.Type)
    }
  
  and parsers:ParsersMap = 
    Map.ofList [
      (0, fun (t:AstTree) -> state { let! lst = parseList (children t) in return Block(lst) } )
  
      (ES3Parser.VAR, fun t -> state { 
        let c = child t 0
        let! s = getState
  
        if isAssign c then 
          do! setState (createLocal s (child c 0).Text)
          return! parse c
  
        else
          do! setState (createLocal s c.Text)
          return Pass
      })
  
      (ES3Parser.ASSIGN, fun t -> state {
        let! l = parse (child t 0)
        let! r = parse (child t 1)
        return Assign(l, r)
      })
  
      (*(ES3Parser.Identifier, fun t -> state {
        
      });*)
    ]
  
  let parsed = executeState (parse astTree) []
  
  //let ast = Ast.Core.defaultGenerator (program.Tree :?> AstTree) (ref [])
negative.code: open IronJS.Ast.Helpers
  
  type private Node = Ast.Types.Node
  type private Parser = AstTree -> State<Ast.Types.Node, Scope list>
  
  let getVariable name = state {
      let! s = getState
      match s with
      | [] -> return Global(name)
    }
  
  let createLocal s name =
    match s with
  