(defisland
  ()
  (let
    ((name (signal "")) (agreed (signal false)))
    (div
      (~tw :tokens "rounded border border-violet-200 bg-violet-50 p-4 my-4 space-y-3")
      (div
        (~tw :tokens "flex items-center gap-3")
        (input
          :type "text"
          :bind name
          :placeholder "Type your name..."
          (~tw :tokens "px-3 py-1.5 rounded border border-stone-300 text-sm focus:outline-none focus:border-violet-400 w-48"))
        (span
          (~tw :tokens "text-sm text-stone-600")
          "Hello, "
          (strong (deref name))
          "!"))
      (div
        (~tw :tokens "flex items-center gap-2")
        (input
          :type "checkbox"
          :bind agreed
          :id "agree-cb"
          (~tw :tokens "rounded border-stone-300"))
        (label
          :for "agree-cb"
          (~tw :tokens "text-sm text-stone-600")
          "I agree to the terms"))
      (when
        (deref agreed)
        (p (~tw :tokens "text-sm text-green-700") "Thanks for agreeing!")))))
