diff --git a/air-extra.cabal b/air-extra.cabal
--- a/air-extra.cabal
+++ b/air-extra.cabal
@@ -1,5 +1,5 @@
 Name:                 air-extra
-Version:              2013.6.22
+Version:              2013.7.18
 Build-type:           Simple
 Synopsis:             air-extra
 Description:          An alternative Haskell Prelude library, extra helpers
@@ -30,7 +30,7 @@
                 , directory
                 , old-locale
                 , filepath
-                , air >= 2013.6.22
+                , air >= 2013.7.18
                 
   hs-source-dirs: src/
   exposed-modules:  
diff --git a/src/Air/Extra.hs b/src/Air/Extra.hs
--- a/src/Air/Extra.hs
+++ b/src/Air/Extra.hs
@@ -6,7 +6,7 @@
 import Data.Maybe
 import Data.Time
 import Data.Time.Clock.POSIX
-import Air.Light
+import Air.Light hiding (reduce, reduce')
 import Numeric
 import Prelude hiding ((.), (^), (>), (<), (/), elem, foldl, (-))
 import System.Directory
@@ -21,8 +21,14 @@
 import qualified Data.List as L
 import qualified Prelude as Prelude
 import qualified System.IO.Unsafe as Unsafe
+import Data.List (foldl1, foldl1')
 
 
+-- BEGIN !!!!!! partial, use with extra care
+-- backport
+reduce = foldl1
+reduce' = foldl1'
+
 -- Parallel
 p_eval, p_eval' :: [a] -> [a]
 p_reduce, p_reduce' :: (a -> a -> a) -> [a] -> a
@@ -43,6 +49,11 @@
 p_split_to n xs          = xs.in_group_of(n).L.transpose
 p_map_reduce_to n m r xs = xs.split_to n .map m .p_reduce' r
 p_map_reduce m r xs      = p_map_reduce_to 16 m r xs
+
+
+-- END !!!!!!
+
+
 
 -- Date
 date :: Integer -> Int -> Int -> Data.Time.Day