#!/usr/bin/perl
for (<>) {
($r, @a) = /([-\d]+)/g;
for (@a) {
@b = /(\d+)/g;
$h{$_}++ for $b[0]..$b[-1]
}
}
printf "%d: %d\n", $_, $h{$_}//0 for @s;
IyEvdXNyL2Jpbi9wZXJsCmZvciAoPD4pIHsKICAoJHIsIEBhKSA9IC8oWy1cZF0rKS9nOwogIHB1c2ggQHMsICAkcjsKICBmb3IgKEBhKSB7CiAgICBAYiA9IC8oXGQrKS9nOwogICAgJGh7JF99KysgZm9yICRiWzBdLi4kYlstMV0KICB9Cn0KcHJpbnRmICIlZDogJWRcbiIsICRfLCAkaHskX30vLzAgZm9yIEBzOw==