structure MyControl = struct
val pd = Control.Print.printDepth
val pl = Control.Print.printLength
val _ = pd := 10000
val _ = pl := 10000
end