chat_colours <- c(
"blue", "red", "green", "yellow", "purple", "black", "white", "gray", "orange"
, "brown", "violet", "pink", "lavender", "cornflowerblue", "azure",
"aubergine", "sage", "gold", "khaki", "cobalt")
message_list <-
list(
list("role" = "system",
"content" = "you're a colour expert"),
list("role" = "user",
"content" = "please create an idiom using the colour blue")
)