diff --git a/minipat-dirt/src/Minipat/Dirt/Prelude.hs b/minipat-dirt/src/Minipat/Dirt/Prelude.hs
index 41e280f..b7ab4e1 100644
--- a/minipat-dirt/src/Minipat/Dirt/Prelude.hs
+++ b/minipat-dirt/src/Minipat/Dirt/Prelude.hs
@@ -23,6 +23,8 @@ module Minipat.Dirt.Prelude
   , slowList
   , fastAppend
   , slowAppend
+  , alt
+  , rand
   )
 where
 
@@ -186,6 +188,12 @@ fastAppend s1 s2 = estreamSeq [(s1, 1), (s2, 1)]
 slowAppend :: S a -> S a -> S a
 slowAppend s1 s2 = slowBy 2 (fastAppend s1 s2)
 
+alt :: Seq (S a) -> S a
+alt = estreamAlt
+
+rand :: Seq (S a) -> S a
+rand = estreamRand
+
 -- TODO
 -- seqPLoop :: Seq (CycleTime, CycleTime, S a) -> S a
 -- rev :: S a -> S a