# Experimenting with callbacks. (1.00)
# @see sNGdfp
 
proc lambda {capturedList args body} {
    return [proc {} $args \
        [concat [list foreach {name value} $capturedList {
            set $name $value }] \; $body]]
}
 
proc any {a pred} {
    foreach x $a {
        if {[$pred $x]} {
            return true
        }
    }
    return false
}
 
proc stringAnyIs {class s} {
    return [any [split $s {}] [lambda [list class $class] {c} {
        return [string is $class $c]
    }]]
}
 
while {[gets stdin line] >= 0} {
    foreach class {space graph punct} {
        puts "'$line' has $class: [stringAnyIs $class $line]"
    }
}

IyBFeHBlcmltZW50aW5nIHdpdGggY2FsbGJhY2tzLiAoMS4wMCkKIyBAc2VlIHNOR2RmcAoKcHJvYyBsYW1iZGEge2NhcHR1cmVkTGlzdCBhcmdzIGJvZHl9IHsKICAgIHJldHVybiBbcHJvYyB7fSAkYXJncyBcCiAgICAgICAgW2NvbmNhdCBbbGlzdCBmb3JlYWNoIHtuYW1lIHZhbHVlfSAkY2FwdHVyZWRMaXN0IHsKICAgICAgICAgICAgc2V0ICRuYW1lICR2YWx1ZSB9XSBcOyAkYm9keV1dCn0KCnByb2MgYW55IHthIHByZWR9IHsKICAgIGZvcmVhY2ggeCAkYSB7CiAgICAgICAgaWYge1skcHJlZCAkeF19IHsKICAgICAgICAgICAgcmV0dXJuIHRydWUKICAgICAgICB9CiAgICB9CiAgICByZXR1cm4gZmFsc2UKfQoKcHJvYyBzdHJpbmdBbnlJcyB7Y2xhc3Mgc30gewogICAgcmV0dXJuIFthbnkgW3NwbGl0ICRzIHt9XSBbbGFtYmRhIFtsaXN0IGNsYXNzICRjbGFzc10ge2N9IHsKICAgICAgICByZXR1cm4gW3N0cmluZyBpcyAkY2xhc3MgJGNdCiAgICB9XV0KfQoKd2hpbGUge1tnZXRzIHN0ZGluIGxpbmVdID49IDB9IHsKICAgIGZvcmVhY2ggY2xhc3Mge3NwYWNlIGdyYXBoIHB1bmN0fSB7CiAgICAgICAgcHV0cyAiJyRsaW5lJyBoYXMgJGNsYXNzOiBbc3RyaW5nQW55SXMgJGNsYXNzICRsaW5lXSIKICAgIH0KfQ==

ICAgICAKYWJjZGUKIyQlXiZhbXA7CmFiIGRlCiMkIF4mYW1wOw==

     
abcde
#$%^&
ab de
#$ ^&