procedure main()
s:=" .#\n"
while writes(s[1+(n:="16R"||reads())/4],s[1+n%4])
end