let
query_by_name =
fun
db name
->
List
.find (
fun
q
->
q.qry_name = name) db.db_queries