use strict;
use warnings;


main(@ARGV);

sub main
{
    
    open(my $in ,'<', "gtype.txt");
    open(my $out ,'>', "fixed-gtype.txt");
	while( my $line = <$in> ) {
        my $line = substr($line,1);
        print $out $line;
}

}

    close $in;
    close $out;