csAppend :: (Monoid t) => CtlStream t d -> CtlStream t d -> CtlStream t d
csAppend a CSEmpty                          = a
csAppend :: (Monoid t) => CtlStream t d -> CtlStream t d -> CtlStream t d
csAppend a CSEmpty                          = a
csAppend a CSEmpty                          = a