
structure Identity :> sig end =
struct

  fun id exp = exp

  val _ = Driver.register_opt {optfun=Driver.Liltolil id,
                               optname="Identity",
                               scorefn=(fn x=>x),
                               initscore=NONE,
                               trusted=false,
                               blowup=false,
                               disabled=true}
end
