BEGIN{FS=OFS="\t";}
{
    n=split($4,a,"_");
    x=sprintf("%d",1000*a[n]);
    print $1,$2,$3,$4,x,$6
}