#!/usr/bin/env tclsh9.0
namespace import ::tcl::mathop::*

proc values {list} {
    if {[llength $list] == 1} {return $list}
    set last [lindex $list end]
    set first [lrange $list 0 end-1]
    set out [list]
    foreach value [values $first] {
        lappend out [+ $value $last] [* $value $last]
    }
    return $out
}

set total 0
while {[gets stdin line] >= 0} {
    if {$line eq ""} continue
    if {[scan $line {%d: %[0-9 ]} value list] != 2} continue
    set tmp [values [split $list " "]]
    # puts "$value: $list // $tmp"
    if {$value in $tmp} {
        puts "$value: $list"
        incr total $value
    }
}
puts $total