#! /usr/bin/perl

$file=@ARGV[0];

open(F,"$file");

$j=0;

while (<F>)
{
    $_=~s/\n/ /;
    @a=split/,| /,$_;
    @a=sort @a;
    $str="";
    $i=0;

    while ($i <= $#a)
    {
      $str.=" ".$a[$i];

      $i+=1;
    }


  $Final[$j]=$str;

  $j+=1;

}

   @Final=sort @Final;

 for  ( @Final)
    {
          print "$_\n";
    }




close F;