open Ast
open Vector
open Pprint
open Parser

let rec evalStatement stm =
  match stm with
  | ArrayAssignment(a, b) ->
     Hashtbl.replace symbol_table a b
  |_ -> ()