4.3BSD/usr/contrib/icon/book/15/shades.icn

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