startEval (Right exps) env = do (exp, env) <- evalBody exps env
                                res <- (realize exp)
                                return (show res)
startEval (Right exps) env = do (exp, env) <- evalBody exps env
                                res <- (realize exp)
                                return (show res)
startEval (Right exps) env = do (exp, env) <- evalBody exps env
                                res <- (realize exp)
                                return (show res)