<>;++$h{$_}for<>=~/\d+/g;print$h{$_}+0,$"for<>=~/\d+/g