#!/usr/bin/perl

my @array = (1,1,1,1,1,1);

while ($line = <STDIN>) {
    chomp($line);
    push @array, $line;
}

my $strout = join(",", @array);

print $strout, "\n";