diff --git a/Sound/Tidal/Context.hs b/Sound/Tidal/Context.hs
--- a/Sound/Tidal/Context.hs
+++ b/Sound/Tidal/Context.hs
@@ -11,3 +11,4 @@
 import Sound.Tidal.Strategies as C
 import Sound.Tidal.Tempo as C
 import Sound.Tidal.Time as C
+import Sound.Tidal.SuperCollider as C
diff --git a/Sound/Tidal/SuperCollider.hs b/Sound/Tidal/SuperCollider.hs
new file mode 100644
--- /dev/null
+++ b/Sound/Tidal/SuperCollider.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE NoMonomorphismRestriction #-}
+
+module Sound.Tidal.SuperCollider where
+
+import Sound.Tidal.Stream
+import Sound.Tidal.Pattern
+import Sound.Tidal.Parse
+import Sound.OSC.FD
+
+supercollider :: String -> [Param] -> Double -> OscShape
+supercollider n ps l = OscShape { 
+  -- The OSC path
+  path = "/s_new",
+preamble = [string n, int32 (-1), int32 1, int32 1],
+  namedParams = True,
+  params = ps,
+  timestamp = BundleStamp,
+  latency = l
+  }
+
+scStream n ps l = do let shape = (supercollider n ps l)
+                     sc <- stream "127.0.0.1" 57110 shape
+                     return (sc, shape)
+
diff --git a/tidal.cabal b/tidal.cabal
--- a/tidal.cabal
+++ b/tidal.cabal
@@ -1,5 +1,5 @@
 name:                tidal
-version:             0.4.24
+version:         0.4.26
 synopsis:            Pattern language for improvised music
 -- description:         
 homepage:            http://yaxu.org/tidal/
@@ -27,5 +27,6 @@
                        Sound.Tidal.Time
                        Sound.Tidal.Context
                        Sound.Tidal.Utils
+                       Sound.Tidal.SuperCollider
 
   Build-depends: base < 5, process, parsec, hosc > 0.13, hashable, colour, containers, time, websockets > 0.8, text, mtl >=2.1, transformers, mersenne-random-pure64,binary, bytestring, hmt
diff --git a/tidal.el b/tidal.el
--- a/tidal.el
+++ b/tidal.el
@@ -72,10 +72,11 @@
   (tidal-send-string "d8 <- dirtStream")
   (tidal-send-string "d9 <- dirtStream")
   (tidal-send-string "d10 <- dirtStream")
-  (tidal-send-string "k1 <- keyStream")
+;  (tidal-send-string "k1 <- keyStream")
   (tidal-send-string "(cps, getNow) <- bpsUtils")
   (tidal-send-string "let bps x = cps (x/2)")
-  (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,k1]")
+ ; (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,k1]")
+  (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10]")
   (tidal-send-string "let solo = (>>) hush")
   (tidal-send-string ":set prompt \"tidal> \"")
 )