("ws" "ws.carroll.ui.cb"
  (shell z
    (list x
      (
	(1 "One" one)
	(3 "Three" three)
	(5 "Five" five)
      )
      :selection :extended
)))

