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