(list
 (list 11 'd 10 "            (string (string-ref u 0)) (lcs (substring u 1) (substring v 1))))")
 (list 11 'a 11 "            (substring u 0 1) (lcs (substring u 1) (substring v 1))))")
 (list 15 'a 16 ";;  Stringa piu' lunga")
 (list 15 'a 17 "")
 (list 19 'd 20 "      (if (< m n)")
 (list 20 'd 20 "          v")
 (list 21 'd 20 "          u))")
 (list 21 'a 21 "      (cond ((< m n) v)")
 (list 21 'a 22 "            ((> m n) u)")
 (list 21 'a 23 "            ((= (random 2) 0) v)")
 (list 21 'a 24 "            (else u)))"))