$B=$C=$_=<>;/.* /?$
$&++||--${$o[$']+=${v1^$&&C},$&&C}:print$o[$_]+$B*$C,$B=$/for(reverse<>),/ /..$'