dd if=$1 conv=lcase of=`basename $1 .exp`
awk 'BEGIN {
print "PROFILE",substr(FILENAME"              ",1,16),"TYPE 1 22 "FILENAME"                                       "
print "SNAPPING PARAMETERS 5    20 1"
}
{
print substr($0,1,80),"2d",substr($1,1,index($1,"-")-1)
}
END {
print "EOD"
}' `basename $1 .exp` > $1.imp