#!/usr/bin/env tclsh8.6

proc main {} {
    gets stdin line; set times [lindex [split $line :] 1]
    gets stdin line; set distances [lindex [split $line :] 1]

    set total 1
    for {set race 0} {$race < [llength $times]} {incr race} {
        set time [lindex $times $race]
        set distance [lindex $distances $race]
        set count 0
        for {set hold 1} {$hold < $time} {incr hold} {
            set d [expr {$hold * ($time - $hold)}]
            if {$d > $distance} {incr count}
        }
        set total [expr {$total * $count}]
    }
    puts $total
}
main