getStdOut :: EvalMonad2 (Maybe String)
getStdOut  = do
    mExpr <- lookupPath (Item "stdout")
    return $ case mExpr of
             Just (Lit l) -> Just $ toString l
             _     -> Nothing
getStdOut :: EvalMonad2 (Maybe String)
getStdOut  = do
    mExpr <- lookupPath (Item "stdout")
    return $ case mExpr of
             Just (Lit l) -> Just $ toString l
             _     -> Nothing
getStdOut  = do
    mExpr <- lookupPath (Item "stdout")
    return $ case mExpr of
             Just (Lit l) -> Just $ toString l
             _     -> Nothing