    class
    	LOGIN [G -> DATABASE create default_create end]

    Ancestors
    	HANDLE_SPEC [G -> DATABASE create default_create end]

    Clients
    	DATABASE_APPL [reference G -> DATABASE create default_create end]
    	DATABASE_CONTROL [G -> DATABASE create default_create end]
    	LOGIN [G -> DATABASE create default_create end]

    Suppliers
    	DATABASE*
    	LOGIN [G -> DATABASE create default_create end]
    	STRING_8