set name aAaaaA
if { [regexp {^[[:lower:]]+$} $name] } {
puts "continue"
} else {
puts "String is not lowercase. Please enter again"
}
c2V0IG5hbWUgYUFhYWFBCmlmIHsgW3JlZ2V4cCB7XltbOmxvd2VyOl1dKyR9ICRuYW1lXSB9IHsKICAgcHV0cyAiY29udGludWUiCn0gZWxzZSB7CiAgIHB1dHMgIlN0cmluZyBpcyBub3QgbG93ZXJjYXNlLiBQbGVhc2UgZW50ZXIgYWdhaW4iCn0=