initialEvalState :: EvalState
initialEvalState = ES { nameMap = Map.fromList $ map (\(name, _, val) -> (name, val)) initialEvalStateList,
                        precMap = IntMap.fromList $ map (\(name, prec, _) -> (prec, name)) initialEvalStateList }
initialEvalState :: EvalState
initialEvalState = ES { nameMap = Map.fromList $ map (\(name, _, val) -> (name, val)) initialEvalStateList,
                        precMap = IntMap.fromList $ map (\(name, prec, _) -> (prec, name)) initialEvalStateList }
initialEvalState = ES { nameMap = Map.fromList $ map (\(name, _, val) -> (name, val)) initialEvalStateList,
                        precMap = IntMap.fromList $ map (\(name, prec, _) -> (prec, name)) initialEvalStateList }