#!/usr/bin/perl

$c=0;
while($p=<>){
	$p=~s/\r*\n*//gis;
	print $p;
	$c++;
	if($c%6==0){
		print "\n";
	} else {
		print ",";
	}
}