Add Runtime.Bus with channel-based effect interpreter

test/Main.hs

@@ -1,4 +1,7 @@
 module Main (main) where
 
+import Test.Hspec (hspec)
+import qualified BusSpec
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented."
+main = hspec BusSpec.spec