(let ((triple (lambda (x) (concat x (concat x x)))))
  (concat "solve lambdaman6 "
          (triple (triple (triple "RRRRRRRR")))))