let int_input ?(editable = true) ?(size = 8) ?(value = 0) ?(callback = fun _ -> ()) () = input string_of_int int_of_string value size editable callback