ERROR: http-error-code http-code ;

: valid-response? ( status content -- content http-code ? )
    swap code>> dup 
    { 400 404 503 } member? not ;

: get-xml ( url -- xml )
    http-get valid-response? [ drop ] [ nip http-error-code ] if
    string>xml ;