Attempting to do object-oriented programming in Ada. God help me.