# Experimenting with callbacks. (4.00)
# (The variable name avoids infinite recursion).
 
namespace eval lambda {
    variable id 0
}
 
proc lambda {capturedList args body} {
    set _ _lambda[incr ::lambda::id]
    proc $_ $args \
        [concat [list foreach {name value} $capturedList {
            set $name $value }] \; $body]
    return $_
}
 
proc not1 {unaryPredicate} {
    lambda [list predicate $unaryPredicate] {item} {
        expr ! [$predicate $item]
    }
}
 
proc any {seq predicate} {
    foreach item $seq {
        if {[$predicate $item]} {
            return 1
        }
    }
    return 0
}
 
proc all {seq predicate} {
    expr ! [any $seq [not1 $predicate]]
}
 
proc to_bool {i} {
    if {$i == 0} { return false }
    return true;
}
 
# Main.
 
proc stringAnyIs {class s} {
    to_bool [any [split $s {}] [lambda [list class $class] {c} {
        string is $class $c
    }]]
}
 
proc stringAllIs {class s} {
    to_bool [all [split $s {}] [lambda [list class $class] {c} {
        string is $class $c
    }]]
}
 
while {[gets stdin line] >= 0} {
    foreach class {space graph punct} {
        puts "\"$line\" any $class: [stringAnyIs $class $line]"
        puts "\"$line\" all $class: [stringAllIs $class $line]"
    }
}

IyBFeHBlcmltZW50aW5nIHdpdGggY2FsbGJhY2tzLiAoNC4wMCkKIyAoVGhlIHZhcmlhYmxlIG5hbWUgYXZvaWRzIGluZmluaXRlIHJlY3Vyc2lvbikuCgpuYW1lc3BhY2UgZXZhbCBsYW1iZGEgewogICAgdmFyaWFibGUgaWQgMAp9Cgpwcm9jIGxhbWJkYSB7Y2FwdHVyZWRMaXN0IGFyZ3MgYm9keX0gewogICAgc2V0IF8gX2xhbWJkYVtpbmNyIDo6bGFtYmRhOjppZF0KICAgIHByb2MgJF8gJGFyZ3MgXAogICAgICAgIFtjb25jYXQgW2xpc3QgZm9yZWFjaCB7bmFtZSB2YWx1ZX0gJGNhcHR1cmVkTGlzdCB7CiAgICAgICAgICAgIHNldCAkbmFtZSAkdmFsdWUgfV0gXDsgJGJvZHldCiAgICByZXR1cm4gJF8KfQoKcHJvYyBub3QxIHt1bmFyeVByZWRpY2F0ZX0gewogICAgbGFtYmRhIFtsaXN0IHByZWRpY2F0ZSAkdW5hcnlQcmVkaWNhdGVdIHtpdGVtfSB7CiAgICAgICAgZXhwciAhIFskcHJlZGljYXRlICRpdGVtXQogICAgfQp9Cgpwcm9jIGFueSB7c2VxIHByZWRpY2F0ZX0gewogICAgZm9yZWFjaCBpdGVtICRzZXEgewogICAgICAgIGlmIHtbJHByZWRpY2F0ZSAkaXRlbV19IHsKICAgICAgICAgICAgcmV0dXJuIDEKICAgICAgICB9CiAgICB9CiAgICByZXR1cm4gMAp9Cgpwcm9jIGFsbCB7c2VxIHByZWRpY2F0ZX0gewogICAgZXhwciAhIFthbnkgJHNlcSBbbm90MSAkcHJlZGljYXRlXV0KfQoKcHJvYyB0b19ib29sIHtpfSB7CiAgICBpZiB7JGkgPT0gMH0geyByZXR1cm4gZmFsc2UgfQogICAgcmV0dXJuIHRydWU7Cn0KCiMgTWFpbi4KCnByb2Mgc3RyaW5nQW55SXMge2NsYXNzIHN9IHsKICAgIHRvX2Jvb2wgW2FueSBbc3BsaXQgJHMge31dIFtsYW1iZGEgW2xpc3QgY2xhc3MgJGNsYXNzXSB7Y30gewogICAgICAgIHN0cmluZyBpcyAkY2xhc3MgJGMKICAgIH1dXQp9Cgpwcm9jIHN0cmluZ0FsbElzIHtjbGFzcyBzfSB7CiAgICB0b19ib29sIFthbGwgW3NwbGl0ICRzIHt9XSBbbGFtYmRhIFtsaXN0IGNsYXNzICRjbGFzc10ge2N9IHsKICAgICAgICBzdHJpbmcgaXMgJGNsYXNzICRjCiAgICB9XV0KfQoKd2hpbGUge1tnZXRzIHN0ZGluIGxpbmVdID49IDB9IHsKICAgIGZvcmVhY2ggY2xhc3Mge3NwYWNlIGdyYXBoIHB1bmN0fSB7CiAgICAgICAgcHV0cyAiXCIkbGluZVwiIGFueSAkY2xhc3M6IFtzdHJpbmdBbnlJcyAkY2xhc3MgJGxpbmVdIgogICAgICAgIHB1dHMgIlwiJGxpbmVcIiBhbGwgJGNsYXNzOiBbc3RyaW5nQWxsSXMgJGNsYXNzICRsaW5lXSIKICAgIH0KfQ==

ICAgICAKYWJjZGUKIUAjJSZhbXA7CmFiIGRlCiFAICUmYW1wOw==

     
abcde
!@#%&
ab de
!@ %&