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