diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,12 @@
+2009.8.18
+---------
+
+### Feature
+
+* make - infixl, differ from $
+* more unix style io wrapper
+* update example
+
 2009.8.16
 ---------
 
diff --git a/mps.cabal b/mps.cabal
--- a/mps.cabal
+++ b/mps.cabal
@@ -1,5 +1,5 @@
 Name:                 mps
-Version:              2009.8.16
+Version:              2009.8.18
 Build-type:           Simple
 Synopsis:             simply oo
 Description:          DSL that allows one to write Haskell from left to right
diff --git a/src/MPS/Light.hs b/src/MPS/Light.hs
--- a/src/MPS/Light.hs
+++ b/src/MPS/Light.hs
@@ -35,7 +35,7 @@
 {-# INLINE (-) #-}
 (-) :: (a -> b) -> a -> b
 f - x =  f x
-infixr 0 -
+infixl 0 -
 
 (<->) :: (Num a) => a -> a -> a
 (<->) = (Prelude.-)
diff --git a/src/MPS/UTF8.hs b/src/MPS/UTF8.hs
--- a/src/MPS/UTF8.hs
+++ b/src/MPS/UTF8.hs
@@ -39,3 +39,9 @@
 
 strip :: String -> String
 strip x = MPS.strip (x.u2b) .b2u
+
+rm :: String -> IO ()
+rm = u2b > removeFile
+
+rm_rf :: String -> IO ()
+rm_rf = u2b > removeDirectoryRecursive