# define adjectives
push_ontology("english")

def concept adjective
def concept color
set_isa(color, adjective)

def concept red
def concept blue
def concept orange
def concept yellow
def concept green
def concept indigo
def concept violet
def concept cyan
def concept magenta
def concept black
def concept white
def concept grey

set_isa(red, color)
set_isa(blue, color)
set_isa(orange, color)
set_isa(yellow, color)
set_isa(green, color)
set_isa(indigo, color)
set_isa(violet, color)
set_isa(cyan, color)
set_isa(magenta, color)
set_isa(black, color)
set_isa(white, color)
set_isa(grey, color)

def concept qualify x from bnf adjective x as set_attr(x, c:adjective:, adjective) ret x
def concept qualify x from bnf x 'is' adjective as set_attr(x, c:adjective:, adjective) ret x