(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
                                         0b000000000000000000000000000000000000000000000000000101101111100111110100110100111001011100101101011101100101100010100010001000001110110110111101101000101111001101100010100111010001010010001001001101110010000110000010001100001111010010110101001001101011010011110101100100110111100000100111111010000011011010100100111111001011000000111001111001010111010100110100001000111101011011001111111111001010011010111010110000100001101010011101000000100101101100101001011111101000000111000111110001110101101001111100101000000011101011001101110110001011000001110100110111110010110110001001010100010000000111010010111010010111000111100010101001100100110000100011010110101100000100111011110010110111110111000110100010010010110101111011101000101001010000010100100101101011101010101001101001010100011010000001011101010101010110011110111011000010011000000011011101000001010101011011011110001101111000010000100110100110111110110101101011001001000100111010001000110100111000101110001111110100001010010100100100101010100100010100110100100100100100110111011101001010010101001100100110010111100101100000100001010101001110011101010111100000000100101010010101000100111010101010011000100010001000011001100111010100010001010100110000001011011010110011010010101011011000110111110111011111000010011010001010011111101101101000100010101000001100011010100110001101101011010110101110010100011010111010100101001111111101100011010110101010001000111000100010100011100100000001110101010010001011010000101100001100010011111101011001110111010001001111000010100001011101001110101001011011101011011100000011000010100011011110010011000101001110000110000101111011111101011100101011111100010110010101011101101010000110011000010001111100111110111010011010100111001100101011010011111001000101110001100110010011001110100100000111111101101110111010011111110001011110110111010110101000110111010001000010010010001110111101101000101010010011001001011011010101001110011001001010100010101101010111110101000000110100010101110110011101100111100001001100101000100101011010101100001110110110110101100001010011001001101001010100111111100010100011011001010111011001101001111111101111100001001110000101111000100101000110100001110100001111010100010011100111011111010100001111010110011010100100011001011011001010110100010010011011010100101000110011111101101100100100000011100001010101010110011010101111000111110001110001011110001011011101101110001011101011000011110100011111101011001111011011011101011100111010011011010110010111010000111110001011100100100001101100000000000000000000000000000000000000000000000000
                                         newX (+ y newY))
                                 (getbit getbit
                                         0b000000000000000000000000000000000000000000000000001101011100010001110011010100111101111011101010101110111011110001111001110010010110000101011101000010000100110110010100111011010111101111001001101101000110010011001010101001011011110110100101111101010110001110001100101001110101010010110011101101111111110011011001110111101101011110001001001110010110010111001001010110100000110111011001100101110011111101000111000010100010101001010100000111010001111000100100100010101011001011100110010111111101110011000101011110000011001101000110101110110011100110001111111101101101101010111100101011101010101100111001100111110110111100001111010001100011010010001100110111001000011011001001101010110101100000110001100000110011111110010010001101100010110000111101001101101000001100101000010101100111000100011010000101100111110110100001010010110011100101010100001001110010011010101010000001011111000010010010110100001101001110001100010100111010011111111010100010010010111111011011111100110000110011111100110000001001010101111100110101010111101001110100110101001111100111110100101000011100010111100010101100101101001110001001111001011000111011001111111000110010100011010101100100011110111011100011011011011011111001100010111100000100011111001011000111101101000010000010000100001111010100011100011001101101111100010100011010001010101011010001110111110010000100000101100100111100100110100001110101101000001001111011010001110111010000110101100011110110000001100000100011100100111110001001111111101000100111001100110111111001010011100010101100010101000011101100111001100001110101110010100111010100101001101001100010011100001110011100110100101100111000100000111011001011111100101101100101101110010010101010010001101011000110101101110010000101111100110001100010100101101100101001100110111110111111010100010110110010001001011000000000010111001111011111011010100010101011010101111011100010110100101100000011101010001101001100000110001000101101110101011011010000001011111011010001100110010001101001101100011011100001000011100001011011010110011010111110111000011001010010010101000011011011111101111100001001100101011001001011100110100101010001111100111011100111010100000100100011110111101110010100110000110101001101011011101100100110101000111101000011110111101000000110011100000101010101100000110011100100010100110100110001010010111101000110101001110110101110001100101010111111011010010010110010111010101000101000110011010001101101011010010110100100101111010010001011001001010011100110010110011111101100110111100110111111010111010100000000000000000000000000000000000000000000000000
                                         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 lambdaman13 " (solve solve 5000 26 37 0 1)))