(defisland
  ()
  (let
    ((danger (signal false)))
    (div
      (~tw :tokens "rounded-lg border border-stone-200 p-4 space-y-3")
      (button
        (~tw :tokens "px-3 py-1 rounded bg-violet-600 text-white text-sm")
        :on-click (fn (e) (swap! danger not))
        (if (deref danger) "Safe mode" "Danger mode"))
      (div
        :class (str
          "p-3 rounded font-medium transition-colors "
          (if
            (deref danger)
            "bg-red-100 text-red-800"
            "bg-green-100 text-green-800"))
        (if
          (deref danger)
          "DANGER: reactive class binding via CEK"
          "SAFE: reactive class binding via CEK")))))
