(program (programItem (procedureDecl procedure local::guarded-tag ( (paramList (param $ tag)) ) (block { (blockItem (conditional (ifStatement if (condition (expression (term (factor (comparison (comparable inbound.req.X-Env) == (value "prod")))))) (block { (blockItem (statement inbound.req.X-Prod = (value "$tag") ;)) })))) (blockItem (statement inbound.req.X-Tag = (value "$tag") ;)) }))) (programItem (section REMAP { (sectionBody (statement (functionCall local::guarded-tag ( (argumentList (value "remap-val")) )) ;)) })) (programItem (section SEND_RESPONSE { (sectionBody (statement (functionCall local::guarded-tag ( (argumentList (value "resp-val")) )) ;)) })) <EOF>)
