stream :: Foldable f
       => Markup (a -> n) r
       -> Markup (f a -> FastMarkup n) r
stream m =
  result <$ dynamicRaw (\fa -> FStream (ListS (toList fa) fm))
  where
    (result, !fm) = runMarkup m

-- | Sub-template
stream :: Foldable f
       => Markup (a -> n) r
       -> Markup (f a -> FastMarkup n) r
stream m =
  result <$ dynamicRaw (\fa -> FStream (ListS (toList fa) fm))
  where
    (result, !fm) = runMarkup m

-- | Sub-template
stream m =
  result <$ dynamicRaw (\fa -> FStream (ListS (toList fa) fm))
  where
    (result, !fm) = runMarkup m

-- | Sub-template