: execute-string ( string -- output ) [ 1array [ parse-string call ] with-datastack drop ] with-string-writer ;