Module Tea_program

type processMsg

type 'msg processMsg = 

val spawn

val spawn :    'a ->   ( 'b -> 'c -> 'd option ) ->   ( 'e -> unit ) ->   'f processMsg ->   unit

module type Process

module type Process = sig ... end

val testing1

val testing1 : int