(let* ((getbit (lambda (getbit bits a b)
                 (if (> b 0)
                     (getbit getbit (/ bits 0b100000000000000000000000000000000000000000000000000) a (- b 2))
                     (if (> a 0)
                         (getbit getbit (/ bits 2) (- a 1) 0)
                         (% bits 2)))))
       (solve (lambda (solve n x y dirX dirY)
                (if (= n 0)
                    ""
                    (let* ((newX (+ x dirX))
                           (newY (+ y dirY)))
                      (if (= 0
                             (if (= 0 dirX)
                                 (getbit getbit
                                         0b000000000000000000000000000000000000000000000000000111011111000101110000010001010111000100101101011010100100101110000110111010001101111000101100011010110010001001011001011000101001111000101000110010110111101110101101001111101001000011101000011001010000000110001000111111001001010111010000101111111111111111001001100001001011111011101100011100111111001100010111100011101010110010010010101011010011010010101111111001101011101111110110111001000111000110010001010100001001010001000110000101111011000110111010110010110101000110111100101011110010011101010110110110011011110110100100110010001001010011111111101100111001100011100100011010110001001110101100110100111111101001000100001100111001111101110001100111111000111110111010101010100001110011011101101010110001110010100001000011001010100000010010011100101101110100011010111110101110101100110101000100111000010100010010010111011011010001010011100110011001101101110100111001001110001011011100101110011111011010010001010011000100011010010010001110101111100101110010010111010101101101101100011110100000100110100110000011000100111111010100010111111000110110011101010111101011011100101010010011111110111100001110000010010000100010000101100000100001100110110110110011100100111110011001101011011110010010100010100110001100111001011010000000111101111111011000010001001010000110001000010110111000000011001000101011111010011110010101110011000001011101101001110101010111001101111011110001101111100010110111010101010100011010100101000010111001100101000000010101111101111100110110011000011010000100000010010001100101111000111111001000111100010001110100101100001010001100110010110101001000111101101010011010011101101010011101011011010110100110010001010100101110000110000111000010011111011000011100111100101110101010101011010011010100011101010110000010101110101010011011100000111000011000011010000011000111001011110101011111011100111000100010010010100111001010011110110101110000100000111010011100110100011110001001011010100000100010110100101110100110100101111111011101101111010101100100011101010011100110110101100100010110111000001010101010000001011011101100101000110101010101100101000110101001111101001100000000111010110010010111001010000001011100101010111010010101010110000101101011010101001010000001010101011001011110011100000111001111001100100010111001100010010110101011101111010100101100011101011100011101101101110000100100111011110110010011010111001000111000101011010110101110001000000001010110111101110000110101011000011100010110010101101000100011101101011001010100000000000000000000000000000000000000000000000000
                                         newX (+ y newY))
                                 (getbit getbit
                                         0b000000000000000000000000000000000000000000000000001001101001010001001010110101110111100101001010111110110101001111001110110101100011100001010011101011010100011010010110110010100011000101001001110001101110110011110100110110110110010011110010000111001110010101000010010010101010011110001011011011111101101001010110001010110000111101011001011100100011010010111100110000100101011011000011010011110110011010100001001001011101101111100101011011011110001101001010100000010101101100101000100101111010101010011101110010100000110000110100000101011011010100001010111001101010000111000101110110001010110111000101010100111011010101001011010100000010000111001110111101010101101111110100101101010110111100111000101011011111011000010100111001100101110010110101110001011001101001110110011001001011100101000000000101111001010101011100011011101001011110101011110110011001100111001001101001000111101001101000111110011111000000011010000100110100001001010001111000011100101010010011011111000110011010111001101010011101010111001011001110101010001001110101111001110011101111101101010110111000110000011001101010101010110100011010111010111011010101111101000010101001110101011011011001000011000010011111101100111111010111011110101000110000011111000000010101101100111000001001111110001011011000011011101010101101011001101010010101110000101100110110010011100101010011101001100101111110100100001010011110001000111111100011001110100101111001111101101011011011010001110001000100001110100001111100000011011010011101001011111010101010100100110100101111101000100001011000101001111001110101001111100101010111110011111010101110001110000100011010010101010101101011011111100101100110101011001010100101100110000011000101110101010101010000101010110100010111100010000111110101110000111011110111110101001101000111000000001110100001000000011010010111101001101111110001101010010110110001100100011010000100110010010001011000111011010010101100101010111011010010000010010010000111100011011101001101111101000100111100111100001100001001010010001110111010111011100101000011111110111000101001011010101111010101001100011111101001010110111011100011100000001010101100111000010001101000010001000011111111100110010101000001101000111000111010010011101000101110110010111010011001110111110110111110010001100101110000100000010010101010010010011010001001101100111001010010100011100010101100101010100101001010011011101001000001110100001011010010011100001000101101001010110001100101110101100100111010100110110010011101011101001011010100111011100011001110001011101000000000000000000000000000000000000000000000000000
                                         newY (+ x newX))))
                          (solve solve n x y dirY (- dirX))
                          (concat (take 2 (drop (+ (+ (* dirY 3) dirX) 3) "UULLRRDD"))
                                  (solve solve (- n 1) newX newY (- dirY) dirX))))))))
  (concat "solve lambdaman11 " (solve solve 5000 14 14 0 1)))