proc multiplechoice {} { }