(let ((solve (lambda (solve seed)
               (if (= seed 1)
                   "solve lambdaman5 "
                   (concat (solve solve (% (* seed 14) 8831))
                           (take 1 (drop (% seed 4) "UDLR")))))))
  (solve solve 14))