ocsStream :: Stream -> DList Loc
locsStream Stream { streamExpr = e } = locsExpr e

locsStream :: Stream -> DList Loc
locsStream Stream { streamExpr = e } = locsExpr e
locsStream Stream { streamExpr = e } = locsExpr e