(let ((solve (lambda (solve seed)
               (if (= seed 1)
                   "solve lambdaman7 "
                   (concat (solve solve (% (* seed 3) 49999))
                           (take 1 (drop (% seed 4) "UDLR")))))))
  (solve solve 3))