(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
                                         0b000000000000000000000000000000000000000000000000001011100101101001010111001111111100010101011001100111011111000011001001011001000101111010011000111110110001111001110111101010001101111001100000110010010110100010100001110100001111101101100011000011010110101101011110100011001100011101010011001001111011111101011101101010011110101001000110101101011001000110100010101011101001000111011010001100110100011010001100000011010011000111011010100010100011000111100111110111101110100010001110001101101101001010110101110011000011101001001011111011010011010010000110110101101000011101100100000000100101100010100000100001001010111101001100101011011001000001100010111111110001100000111101011000101100101010100111110011010000010010000010100011110100110111110011110111010110101111010110001010101011010010110010001011111000110111000111011101010100000011110101011110001001011100011101101101000100011011100110010101011000010110000010100101001011011100100110110000110101111010100101001101101000101101011011101110111100010011111111001000001110100111011100010000001101100100001011001111101111110101011100101100010000100100101110001110100111001101110001100110111010100000100101010100010101000100001011100101111011010011101100101110111000111101111000010010000010100110101110110000110100110110000001110110101000100011010111101011001111010011111010010010010110101111100010001100101101010000001001000010101010011000000100101101010010100101100010011101001011000100111011000011001110100010111001010110001100001011101111010101010110000011100001110001001001010100010011011011001101111101110101001010011100101111100111001011101011010100101111110111011110011100100111001010011010101011111010110000101000111001101101001110101011111000100100011110110001010000111011001101000010000011001110110011001010010100100101011000100101011111110101111111111100111001001011011000101101000110000010000111100011011111111001111011010010011011100011101001101000100000000110110111111110101001001100001110110111101110000001001000111110011110100000010101110010001000001011001110110011110010010001110010100101110010001101000110001010000010001110011110101110000000100111000101001110101001100110101001001111101111111100101000001101101111000100010010110111100111110100101001010111100101001101100100001001010010111111000100101011100001010101100000010000010100111010001011011100000110110010011001001111001000010001000011110000110001110011011011111100101010001010110011101110010110100110001001110110011110001110110101111101101110101101011101110010101001001100010100000000000000000000000000000000000000000000000000
                                         newX (+ y newY))
                                 (getbit getbit
                                         0b000000000000000000000000000000000000000000000000000010010101110101110010111101011001001110111000101111001100111000001111000100101101101010011000000111101111011001011110000010110111111101000101000111100000100000100100100101101110100100001000101010100111001000001101101010100100000100011001000110001001110011111011110101101011001010001001001011011011000001001001100000110100101011111001000111110110010011011001000111101000001010000111010001100100111001011111011000111001110001011101000100101010111000011000101010110110101001111110011111101101101011110001111001011111010100010101000010100001110010100110110010000010100110111010011110010101011001110011010000011011101110010110101101101011110001111110010111111010000101101000100001011100100001100110101110110111001001000001110010110101110011101011011101000000101001000110010000111011001011000010111001110111000110001001010111000100101100101101111011100111011010111101011100010001010010100101100101010010011010100011010111011000100100011001111110010101100010011011110100011101000011111101101010010000110011100101001010110011001110111100001001101010101110011100110010101010011111011010111011101011100100110110110111101101101010001100111011010000010110110101010000100100011100101001110111100010100000100000101010111101101011110011100001000011010100110011100001110000110100100101010110101110001000000110101111011001000100110110100001100100010011001001010110011000011001011101010000101011100011001010011101000101100110000010001111000010010111101101001010001101100000011011110110011101010111110111010101010010001000111100101010000101111111000000110000111011010110001001111001011011110001001001010111010010010111101111010101100101000100101111010100100011010010000000110101100010000101011100100101100101010111001110111000101110110011101011000101010110110011101011111001111001001010001101010100001010000101111101000110000010101001001011101001011110111100111110111111110110111000101110101000101001011110110010101010010011010101000100110111101001011000101110111100110100101110111110101010001111100011000011000001100110110101110011101110001110010010000111010000100101101111101011000101100110001110011000111101011111101100110001101010100011100001010100101100001110110111010001011101010001000101111011100110111101010111010001111100100101101110010101001100100110011011010101011101110100011111010011010101000101000010101010101010101000011101111010101011001110010101011011101100100111100111011010010100001101110000111001011001101100101010110110110111010100111101011010101100000000000000000000000000000000000000000000000000
                                         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 lambdaman14 " (solve solve 5000 24 20 0 1)))