#!/usr/bin/perl
#
# Sort the affix flags in the munched file alphabetically.

while (<>) {
    chomp;
    if (m%^(.+)/(.*)%) {
	my ($word, $flag) = ($1, $2);
	print "$word/",sort(split(//, $flag)),"\n";
    } else {
	print "$_/\n";
    }
}
