./ihd/bin/ihmq newform h00^ h01^$1 h02^ h03^ h04^ h05^ h06^ h07^ h08^ h09^ h10^ h11^ h12^ d00^ d01^ d02^ d03^ d04^ d05^ d06^ d07^ d08^ d09^ d10^ d11^ d12^ d13^ | awk -F^ ' BEGIN { wz=0 }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); split(txt,z,"|"); return z[1] }
trail($2)!="'"$1"'" { next }
wz==0 { for (i=1;i<14;i++) printf "newformH%.2d^%s\n",i-1,trail($i) }
{ for (i=14;i<NF;i++) printf "newformD%.2d%.2d^%s\n",wz,i-14,trail($i);wz++ } ' 

