let report2 logtext =
    let oc = open_out_gen  [Open_creat;Open_append] 777 "C:/Ocaml_projekt/test_info3.txt"
    in 
      fprintf oc "%s\n" logtext;
      close_out oc;
      0