simple oop / json example in Ada