val id : 'a -> 'a
val makeSet : ('a -> string) -> 'a list -> string
val neg : real -> real
+ val add : real * real -> real
+ val sub : real * real -> real
+ val mult : int * real -> real
+
+ val lt : real * real -> bool
+ val ge : real * real -> bool
val validHost : string -> bool
val validDomain : string -> bool
val whoisUrl : string -> string
val randomPassword : unit -> string
-end
\ No newline at end of file
+
+ val domainDir : string -> string
+
+ val readFile : string -> string
+
+ val mem : ''a * ''a list -> bool
+
+ val allLower : string -> string
+ val normEmail : string -> string
+
+ val diffFromNow : Time.time -> string
+end