package Square is
    Size : constant := 5; -- dimension must be an odd number
    type Direction is (North, South, East, West, North_East,
                       North_West, South_East, South_West);
    procedure Toto;
    procedure Go_To_Center;
    procedure Go (Which_Direction : in Direction);
    function Is_Already_Occupied return Boolean;
    procedure Deposit (Token : Positive);
    procedure Display;
end Square;