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

react { 
	whenever $*IN.lines.Supply { 
		my Int ($a, $l) = (0, 0);
		my @a = .comb>>.Int;
		
		$l = @a[0];
		for @a[1..*-1] { 
			if $l == $_ { 
				$a += $l; 
				
			} else { 
				$l = $_; 
			} 
		}; 
		$a += @a[0] if +@a > 1 && @a[0] == @a[*-1];
		say $a; 
	} 
}