Breaking record types into classes