# this procedure executes its argument:
proc demo {function} {
    $function
}
# for example:
demo bell