#!/usr/bin/perl

#re-sorts all the lines.

sub resort {
  $_ = $_[0];
  chomp;
  s/\;$//;
  @data = split(';',$_);
  foreach (@data) {
    $_ = join '', sort split '', $_;
  }
  return(join ';', (sort @data), "\n");
}

foreach (<>) {
  print &resort($_);
}