startEval :: Either ParseError [Expression] -> Env -> IO (String) 
startEval (Left err) _ = return (show err)
startEval :: Either ParseError [Expression] -> Env -> IO (String)
startEval (Left err) _ = return (show err)
startEval (Left err) _ = return (show err)