package Statuses is
type Status is private;
ST_NONE : constant Status;
ST_FAILED : constant Status;
ST_SUCCESS : constant Status;
ST_EXCEPTION : constant Status;
function "="
function To_Status