let rec reee = 'e' :: reee in
List.iter (Printf.printf "%c") ('r' :: reee)