diff --git a/Chan.hs b/Chad.hs
similarity index 61%
rename from Chan.hs
rename to Chad.hs
index 2c1dd20..8df0d4f 100644
--- a/Chan.hs
+++ b/Chad.hs
@@ -1,28 +1,28 @@
-module Chan where
+module Chad where
 
-import Control.Concurrent hiding (Chan)
-import Control.Concurrent.STM hiding (TChan)
+import Control.Concurrent hiding (Chad)
+import Control.Concurrent.STM hiding (TChad)
 
 type Stream a = MVar (Item a)
 data Item a = Item a (Stream a)
-data Chan a = Chan (MVar (Stream a)) (MVar (Stream a))
+data Chad a = Chad (MVar (Stream a)) (MVar (Stream a))
 
-newChan :: IO (Chan a)
-newChan = do
+newChad :: IO (Chad a)
+newChad = do
         hole <- newEmptyMVar
         readVar <- newMVar hole
         writeVar <- newMVar hole
-        return $ Chan readVar writeVar
+        return $ Chad readVar writeVar
 
-writeChan :: Chan a -> a -> IO ()
-writeChan (Chan _ writeVar) val = do
+writeChad :: Chad a -> a -> IO ()
+writeChad (Chad _ writeVar) val = do
         newHole <- newEmptyMVar
         oldHole <- takeMVar writeVar
         putMVar oldHole $ Item val newHole
         putMVar writeVar newHole
 
-readChan :: Chan a -> IO a
-readChan (Chan readVar _) = do
+readChad :: Chad a -> IO a
+readChad (Chad readVar _) = do
         stream <- takeMVar readVar
     -- If using multicast-channels then this must use readMVar
     -- Otherwise takeMVar stream would be fine
@@ -30,34 +30,34 @@ readChan (Chan readVar _) = do
         putMVar readVar next
         return val
 
-dupChan :: Chan a -> IO (Chan a)
-dupChan (Chan _ writeVar) = do
+dupChad :: Chad a -> IO (Chad a)
+dupChad (Chad _ writeVar) = do
         hole <- readMVar writeVar
         newReadVar <- newMVar hole
-        return $ Chan newReadVar writeVar
+        return $ Chad newReadVar writeVar
 
 type TVarList a = TVar (TList a)
 data TList a = Nil
              | TCons a (TVarList a)
 
-data TChan a = TChan (TVar (TVarList a)) (TVar (TVarList a))
+data TChad a = TChad (TVar (TVarList a)) (TVar (TVarList a))
 
-newTChan :: STM (TChan a)
-newTChan = do
+newTChad :: STM (TChad a)
+newTChad = do
         hole <- newTVar Nil
         read <- newTVar hole
         write <- newTVar hole
-        return $ TChan read write
+        return $ TChad read write
 
-writeTChan :: TChan a -> a -> STM ()
-writeTChan (TChan _ write) val = do
+writeTChad :: TChad a -> a -> STM ()
+writeTChad (TChad _ write) val = do
         newHole <- newTVar Nil
         oldHole <- readTVar write
         writeTVar oldHole $ TCons val newHole
         writeTVar write newHole
 
-readTChan :: TChan a -> STM a
-readTChan (TChan read _) = do
+readTChad :: TChad a -> STM a
+readTChad (TChad read _) = do
         stream <- readTVar read
         head <- readTVar stream
         case head of
@@ -66,14 +66,14 @@ readTChan (TChan read _) = do
                   writeTVar read next
                   return val
 
-unGetTChan :: TChan a -> a -> STM ()
-unGetTChan (TChan read _) val = do
+unGetTChad :: TChad a -> a -> STM ()
+unGetTChad (TChad read _) val = do
         head <- readTVar read
         newHead <- newTVar (TCons val head)
         writeTVar read newHead
 
-isEmptyTChan :: TChan a -> STM Bool
-isEmptyTChan (TChan read _) = do
+isEmptyTChad :: TChad a -> STM Bool
+isEmptyTChad (TChad read _) = do
         list <- readTVar read
         head <- readTVar list
         case head of