(let ((solve (lambda (solve seed)
               (if (= seed 1)
                   "solve lambdaman17 "
                   (concat (solve solve (% (* seed 24) 499979))
                           (take 1 (drop (% seed 4) "ULDR")))))))
  (solve solve 24))