#!/usr/bin/perl


while (<STDIN>) { 
	($fn) = /^(\S+)/;
	($size) = /\s(\d+)$/; 
	print "$fn $size\n"; 
	while ($size > 0) { 
		$n = read STDIN,$buffer,$size > 16*1024 ? 16*1024 : $size; 
		$size -= $n; 
	}
}