(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))