1while$,+=$,>100?($i-=2,-10):<>||11,++$i*print"M("x$i,")"x$i.$/