Module Deriving_Default.Default_string

module Default_string: Default  with type a = string

type a 
val default : unit -> a