with Subtypes;
use Subtypes;
procedure Format_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
                          This_Version : in Simple_Name := "<DEFAULT>";
                          Regenerate : in Boolean := True;
                          Response : in String := "<PROFILE>");