let a = Y.Mark st.line :: if trans then [] else [Y.Priv] in
let entry = pars, ww, Some vv in
let entity = a, uri_of_qid qid, Y.Abbr entry in
let a = Y.Mark st.line :: if trans then [] else [Y.Priv] in
let entry = pars, ww, Some vv in
let entity = a, uri_of_qid qid, Y.Abbr entry in