procedure shades()
   suspend arb() || lmatch(["black","white","gray"])
end