(program (programItem (section SEND_REQUEST { (sectionBody (statement outbound.req.X-From-Client = (value "{inbound.req.X-Source}") ;)) (sectionBody (statement outbound.req.X-From-Server = (value "{outbound.req.X-Source}") ;)) })) (programItem (section READ_RESPONSE { (sectionBody (statement outbound.resp.X-From-Client = (value "{inbound.req.X-Source}") ;)) (sectionBody (statement outbound.resp.X-From-Server = (value "{outbound.req.X-Source}") ;)) })) (programItem (section SEND_RESPONSE { (sectionBody (statement inbound.resp.X-From-Client = (value "{inbound.req.X-Source}") ;)) (sectionBody (statement inbound.resp.X-From-Server = (value "{outbound.req.X-Source}") ;)) })) <EOF>)
