solve 1 = ""
solve n = 
    (solve (n `quot` 2)) ++ c
    where c = if even n then "L" else "R"

main = do
    m <- readLn :: IO Int
    getContents >>= putStr . unlines . map solve . map (+ 1) . map read . lines