output-stream get stream-json-print ;
: >json ( obj -- string )
- #! Returns a string representing the factor object in JSON format
+ ! Returns a string representing the factor object in JSON format
[ json-print ] with-string-writer ;
M: f stream-json-print