Maybe a logging package should be created to manage that instead of directly using Put_Line everywhere.