with bignumpkg; use bignumpkg;
with ada.text_io; use ada.text_io;

procedure bignumget is
    b1, b2, b3: bignum;
begin
    loop
        put("Enter a big number: ");
        get(b1);
        exit when b1 = zero;
        b2 := b1 + one;
        -- b3 := b1 + 2;   -- How would you do this?
        put(b2);
        new_line;
    end loop;
end bignumget;