prompt 'Name: ' %{
  set-register n %val{text}
  prompt 'Initial value: ' %{
    set-register v %val{text}
    evaluate-commands %sh{
      st=$(echo "$kak_reg_n" | sed 's/^[A-Z]/\L\0/')
      setst="set$(echo "$kak_reg_n" | sed 's/^[a-z]/\U\0/')"
      echo "execute-keys '<esc>,iconst [$st, $setst] = useState($kak_reg_v);<esc>'"
    }
  }
}