import Base
import Stateful
import StatefulParse

mul10 addr mem =
  let IntV n = access addr mem in
    update addr (IntV (10 * n)) mem

testMul10 = mul10 1 [IntV 3, IntV 4, IntV 5, IntV 6]

mul10 :: Int -> Memory -> Memory

 -- execute evaluates an expression in an empty environment
executeX exp = show v 
  where (v, _) = evaluate exp [] []

main = do
  tagged "Upda11" (print testMul10)
  testMain parseExp executeX