#!/usr.bin/perl -w
while ($line = <STDIN>)
{	
	chomp($line);
	($a, $b, $c) = split(",", $line);
	$a = "000$a";
	$a = substr($a, length($a)-9,9);
	$b = "000$b";
	$b = substr($b, length($b)-9,9);
	$c = "$c                                     ";
	$c = substr($c, 0,30);
	print "\"$a $b $c\"\n";
}
