R

Refactoring to Patterns