(do((\(read)(+(if(> #0=(mod\ 128)100)-138 139)\)))((=\ 102))(print((rec`i(if(< i 0)#0##`"M(,`(- i 1))"))(ash\ -7))))