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