#!/usr/local/bin/perl
#
# convsion old KTS dictionary raw data to MAK's one
#
# create : 95.5.29 (Mon), bgjang@csone
# modify :
#

while(<STDIN>) {
    /^([^ \n]*) ([^ \n]*) ([^ \n]*)(.*)/;
    print "$2 $1 $3\n";
}
