LawConcepts





 
    

data Law = Private_Law | Penal_Law | Public_Law

data Concepts = Consulting | Counseling | Solutions

action :: Law -> Concepts -> Solutions