sprintf "CREATE INDEX %s_source ON %s (source);" name name]
let sprintf_objectName_index name = [
-sprintf " CREATE INDEX %s_value ON %s (value);" name name]
+sprintf "CREATE INDEX %s_value ON %s (value);" name name]
let sprintf_owners_index name = [
sprintf "CREATE INDEX %s_owner ON %s (owner);" name name ;