program W
implicit none
integer::N
integer::T
character(100)::S
integer::A=0,B=0
integer::i
read*,N
do i=1,N
  read*,T,S
  A=A+min(len_trim(S),(12*T)/1000)
  B=B+max(0,len_trim(S)-(12*T)/1000)
end do
print"(i0,A,i0)",A," ",B
end program W