if unknown hz_stretch: hz_stretch:=1; fi

let BEGINCHAR = beginchar;
def beginchar(expr n, w, h, d) =
 BEGINCHAR(n,(w)*hz_stretch,h,d)
enddef;