diff --git a/hzulip.cabal b/hzulip.cabal
--- a/hzulip.cabal
+++ b/hzulip.cabal
@@ -1,5 +1,5 @@
 name:                hzulip
-version:             0.4.1.0
+version:             0.4.2.0
 synopsis:            A haskell wrapper for the Zulip API.
 description:         This a Zulip API wrapper for Haskell.
 homepage:            https://github.com/yamadapc/hzulip
diff --git a/src/HZulip.hs b/src/HZulip.hs
--- a/src/HZulip.hs
+++ b/src/HZulip.hs
@@ -6,6 +6,7 @@
               , ZulipClient(..)
               , EventCallback
               , MessageCallback
+              , addSubscriptions
               , defaultBaseUrl
               , eventTypes
               , getEvents
@@ -23,6 +24,7 @@
 import Control.Concurrent (threadDelay)
 import Control.Exception (SomeException, handle)
 import Control.Lens ((.~), (&), (^.), (^..))
+import Control.Monad (void)
 import Data.Aeson.Lens (key, values, _String)
 import qualified Data.ByteString.Char8 as BS (pack)
 import qualified Data.Text as T (pack, unpack)
@@ -113,6 +115,13 @@
     r <- getWith (reqOptions z) (subscriptionsUrl z)
     return $ map T.unpack $ r ^.. responseBody . key "subscriptions"
                                 . values . key "name" . _String
+
+-- |
+-- Add new Stream subscriptions to the client.
+addSubscriptions :: ZulipClient -> [String] -> IO ()
+addSubscriptions z sbs = do
+    let form = [ "subscriptions" := show sbs ]
+    void $ postWith (reqOptions z) (subscriptionsUrl z) form
 
 -- |
 -- Fetches new set of events from a `Queue`.