puts$<.map{|s|(i=s[1].hex*3
s=s[s<?M?i+3:3,99]+s[s<?M?2:-i,i])while s>?!
s.strip}