(method &override :Void create [] (super.create))
(method &override :Void update [:Float elapsed] (super.update elapsed))

(prop &mut :HabitModel model null)
(method setModel [m] (set model ~m))