sub o{$|=print@_,$/}++$d,o L while<><1||${$y=($x+30**($d&=3))%-901}&&$$y^$d^6;$$x=$d^4;$x=$y;o F;<>=~/M/||--$d+o(R)+do$0