# 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 size
size is an adjective

def concept tall
tall is a size
def concept short
short is a size


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