-- Illustrates use of a modular type

with Text_IO; use Text_IO;
procedure minutes is

    -- A type for minutes: ranges 0 .. 59
    type MinuteType is mod 60;

    -- Must create an I/O package for MinuteType
    package Minute_IO is new Text_IO.Modular_IO (Num => MinuteType);
    use Minute_IO;

    m: MinuteType;

begin

    m := 50;

    m := m + 20;    

    put(m);         -- What is the output?

end Minutes;