sig type t = commentid type encoded_type = char array val encode : t -> encoded_type val decode : encoded_type -> t end