a = (1..26).map { read_line.to_i64 }
if "dehrw".chars.any? { |c| a[c - 'a'] < 1 } || a['l' - 'a'] < 3 || a['o' - 'a'] < 2
  puts 0
  exit
end
puts "dehrw".chars.reduce(1i64) { |acc, c|
  acc * a[c - 'a']
} * (2i64...a['l' - 'a']).max_of { |cnt|
  cnt * (cnt - 1) // 2 * (a['l' - 'a'] - cnt)
} * (1i64..a['o' - 'a']).max_of { |cnt|
  cnt * (a['o' - 'a'] - cnt)
}