tcl - Tcl でユーザー入力を再プロンプトする方法

Question

次のようなユーザー入力の簡単なプロンプトがあります。

Is this correct? (Y/N): 

このプロンプトは aYまたは a のいずれかのみを受け取りN、他の入力が入力された場合はユーザーに再プロンプトを出す必要があります。

誰かがこれを行う方法についてのコードのスニペットを見せてもらえますか? 私はまだ Tcl に慣れていません。