#!/usr/bin/perl6
# your code goes here

my Int $a = 0;

react { 
	whenever $*IN.lines.Supply {
		-> @x { 
			for @x X, @x {
				(.[0].key != .[1].key && .[1].value %% .[0].value)
					?? ($a += .[1].value div .[0].value; last; ) 
					!! 0 
			}; 
		}((.words>>.Int).pairs); 
		LAST { say $a; }
	}
}