val mem : (t, string array) Fieldslib.Field.tval gid : (t, int) Fieldslib.Field.tval passwd : (t, string) Fieldslib.Field.tval name : (t, string) Fieldslib.Field.tval fold : init:'acc__0 ‑> name:('acc__0 ‑> (t, string) Fieldslib.Field.t ‑> 'acc__1) ‑> passwd:('acc__1 ‑> (t, string) Fieldslib.Field.t ‑> 'acc__2) ‑> gid:('acc__2 ‑> (t, int) Fieldslib.Field.t ‑> 'acc__3) ‑> mem:('acc__3 ‑> (t, string array) Fieldslib.Field.t ‑> 'acc__4) ‑> 'acc__4val make_creator : name:((t, string) Fieldslib.Field.t ‑> 'acc__0 ‑> ('input__ ‑> string) * 'acc__1) ‑> passwd:((t, string) Fieldslib.Field.t ‑> 'acc__1 ‑> ('input__ ‑> string) * 'acc__2) ‑> gid:((t, int) Fieldslib.Field.t ‑> 'acc__2 ‑> ('input__ ‑> int) * 'acc__3) ‑> mem:((t, string array) Fieldslib.Field.t ‑> 'acc__3 ‑> ('input__ ‑> string array) * 'acc__4) ‑> 'acc__0 ‑> ('input__ ‑> t) * 'acc__4val create : name:string ‑> passwd:string ‑> gid:int ‑> mem:string array ‑> tval map : name:((t, string) Fieldslib.Field.t ‑> string) ‑> passwd:((t, string) Fieldslib.Field.t ‑> string) ‑> gid:((t, int) Fieldslib.Field.t ‑> int) ‑> mem:((t, string array) Fieldslib.Field.t ‑> string array) ‑> tval iter : name:((t, string) Fieldslib.Field.t ‑> unit) ‑> passwd:((t, string) Fieldslib.Field.t ‑> unit) ‑> gid:((t, int) Fieldslib.Field.t ‑> unit) ‑> mem:((t, string array) Fieldslib.Field.t ‑> unit) ‑> unitval for_all : name:((t, string) Fieldslib.Field.t ‑> bool) ‑> passwd:((t, string) Fieldslib.Field.t ‑> bool) ‑> gid:((t, int) Fieldslib.Field.t ‑> bool) ‑> mem:((t, string array) Fieldslib.Field.t ‑> bool) ‑> boolval exists : name:((t, string) Fieldslib.Field.t ‑> bool) ‑> passwd:((t, string) Fieldslib.Field.t ‑> bool) ‑> gid:((t, int) Fieldslib.Field.t ‑> bool) ‑> mem:((t, string array) Fieldslib.Field.t ‑> bool) ‑> boolval to_list : name:((t, string) Fieldslib.Field.t ‑> 'elem__) ‑> passwd:((t, string) Fieldslib.Field.t ‑> 'elem__) ‑> gid:((t, int) Fieldslib.Field.t ‑> 'elem__) ‑> mem:((t, string array) Fieldslib.Field.t ‑> 'elem__) ‑> 'elem__ listval map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user ‑> 'x0 listmodule Direct : sig ... end