morph := Morph new.
rectangle := morph instVarNamed: 'bounds'.


point := rectangle origin.
string := point longPrintString.
debugger := self debug: [string asJsonString].
debugger := debugger stepInto; stepThrough.


context := (debugger interruptedContext stackOfSize: 1) last.
writeStream := context top.


debugger := debugger stepInto; stepInto: #escapeForCharacter:.