Black is related to Habit. Habit is a type of Custom. 
Booth is a type of Closet. Booth have Door. Door is related to External. 
Black <--RelatedTo--> Habit --IsA--> Custom 
Closet <--IsA-- Booth --HasA--> Door <--RelatedTo--> External 