fmom: add Scale(alpha, p4)
fmom: add TestScale