n=eval *$<
d=1
loop{print'M('*d,n,')'*d,$/;d-=10./n-n-=n/?e-d/d^10}