lookupEnv :: String -> IO (Maybe String)
lookupEnv key = do
    env <- getEnvironment
    return $ lookup key env
#endif
lookupEnv :: String -> IO (Maybe String)
lookupEnv key = do
    env <- getEnvironment
    return $ lookup key env
#endif
lookupEnv key = do
    env <- getEnvironment
    return $ lookup key env
#endif