gets
a=b=0
$<.map{|l|s,t=l.split;b+=t.size;a+=t[0,s.to_i*3/250].size}
puts [a,b-a]*" "