let copylearnIn ()=
let mode = [Unix.O_WRONLY;Unix.O_CREAT;Unix.O_TRUNC;Unix.O_APPEND] in
let file = Unix.openfile "donneesJooIn" mode  0o777 in 
let ch = learnIn in
let n = Unix.write file ch 0 (String.length ch) in
if n=0 then print_endline "no output";Unix.close file