sig val create : unit -> Generator.computer end