let creer_file () = [],[];;
let enfiler_file (t,q) x = t, x::q;;