#!/usr/bin/perl -w

# mkjt: script to turn an unformatted list of words into a jt quiz file. 
# Copyright(C) Amit Chakrabarti, 2003-2007.
# Last updated Tue Feb 6 18:45:58 EST 2007.

use strict;

my %sols = ();
while(<>)  {
  chomp;
  unless(/^\s*#/)  {
    push @{$sols{ join('', sort split //) }}, $_ foreach (split);
  }
}
print lc, " ", uc join(' ', @{$sols{$_}}), " -\n" foreach (sort keys %sols);