let copylearnData ()=
let mode = [Unix.O_WRONLY;Unix.O_CREAT;Unix.O_TRUNC;Unix.O_APPEND] in
let file = Unix.openfile "donnees" mode  0o777 in 
let chaine = learnData in
let n = Unix.write file chaine 0 (String.length chaine) in
if n=0 then print_endline "no output";Unix.close file