font_identifier := "beamn13";
input musicd13
numeric beammult;
beammult:=1;
input beamngen