let m = foldr (\((Decl t i),v) m -> insert i v m) empty $ zip ds vs
in modify (\s -> s{variables=[m]})
mapM_ execute ss `catchError` (\_ -> return ())
let m = foldr (\((Decl t i),v) m -> insert i v m) empty $ zip ds vs
in modify (\s -> s{variables=[m]})
mapM_ execute ss `catchError` (\_ -> return ())