उदाहरण 2 चरण, एक सत्र में क्रम से चलाए गए। हर चरण इंजन पर निष्पादित हुआ और नीचे का आउटपुट वही है जो उसने उत्पन्न किया।
text = StringTake[ExampleData[{"Text", "AliceInWonderland"}], 400]StringTake[ExampleData[{Text, AliceInWonderland}], 400]Manipulate[TextCell[Row[List@@StringReplace[text, {RegularExpression["\\b\\w{" <> ToString[u] <> "}\\b"] :> Style["$0", 18, Bold]}]], "TR"], {u, 1, 10, 1}, SaveDefinitions -> True]Manipulate[TextCell[Row[List @@ StringReplace[text, {RegularExpression[StringJoin["\\b\\w{", ToString[u], "}\\b"]] :> Style["$0", 18, Bold]}]], TR], {u, 1, 10, 1}, SaveDefinitions -> True]सभी रेसिपी · फ़ंक्शन संदर्भ · इसे किसी MCP क्लाइंट से उपयोग करें