let rec extract_code lst = 
  match lst with
      car::cdr -> 
        (match car with 
             LnkCode s -> s
           | _ -> extract_code cdr)
    | [] -> ""