[ pack witheach
    [ echo$ cr ] ]      is counted-echo$  ( $ ... n -->   )

[ this ]                is marker         (         --> m )

[ []
  [ swap dup marker oats
   iff drop done
    nested swap join
  again ] ]             is gather         ( m x ... --> [ )

[ gather witheach
    [ echo$ cr ] ]      is markered-echo$ ( m $ ...  -->  )


$ "this" $ "is" $ "a" $ "formica" $ "table" 5 counted-echo$
cr
marker $ "green" $ "is" $ "its" $ "colour" markered-echo$