let maxint () =
    let rec loop i sum =
        if i < 0 then sum else loop (i * 2) (sum + i)
    in
    loop 1 0