#!/usr/bin/perl

 $vFloors = "hmm0/vFloors";
 $macros ="hmm0/macros";

 $header = "~o\n   <VecSize> 39\n   <MFCC_0_D_A>\n";

 unless (open(FLOOR, "$vFloors")) {
   die ("can't open vFloors");
 }

 open (MACROS, ">$macros")   || die ("Unable to open macros file for writing");
 print MACROS "$header";

 while ($line = <FLOOR>) {
   chop ($line);
   print MACROS "$line\n";
 }
