#!/usr/bin/env tclsh9.0

set lefts [list]
set rights [list]
array default set count 0

foreach line [split [read stdin] \n] {
    if {$line eq ""} continue
    lassign $line l r
    lappend lefts $l
    lappend rights $r
}

foreach r $rights {
    incr count($r)
}

set total 0
foreach l $lefts {
    incr total [expr {$l * $count($l)}]
}
puts $total