¿Alguien sabe programar en TCL Expect?

Necesito que alguien me pueda asesorar en ciclos If/else & proc ...en base a la palabra user o username...