let ask_int_msg s () =
(*        zenity_info "Veuillez choisir un entier";*)
        faire ("zenity --scale --window-icon=\".monicone.ico\" --title=\"Projet puzzle : choisissez une valeur\" --text=\""^s^"\" --value=2 --min-value=1 --max-value=16 > .int_choose_zenity.int");
        parse_int ".int_choose_zenity.int"