1
type chemtbl = (string, int) Hashtbl.t
2
and chemrecord = { mutable hashtbl : chemtbl; mutable formula : string; }
3
and item = { ikey : string; itbl : chemrecord; mutable sign : int; }
4
and listitems = item list
5
val chem_addsym : chemtbl -> string -> int -> unit
6
val chem_add : chemrecord -> chemrecord -> chemrecord
7
val chem_mult : chemrecord -> int -> chemrecord
8
val createchem : string -> int -> chemrecord
9
val chem_negate : listitems -> unit
10
val chem_printitem : item -> unit