(defcomp
  (&key items)
  (<> (map (fn (item) (option :value item item)) items)))