Comparisons

    (x::xs) => 1 + length xs

```

- DRYer

### Records

```

data Person = Person {personName :: String, personAge :: Int}  -- prefixing because of name collisions

peter :: Person

peter = Person {name = "Peter", age = 65}

peter = Person {personName = "Peter", personAge = 65}

showName :: Person -> String

showName person = "The name is " ++ name person ++ "."

showName : Person -> String

    person => "The name is " + person.Name + "."

```

### Traits

```

class Showable (a :: *) where

    show :: a -> String

instance Showable Person where

    show p = "The name is " ++ personName p

f :: Showable a => a -> IO ()

f x = putStrLn $ "Show: " ++ show x

```

```

trait Showable (a : Type)

    show : a -> String

Person : Showable

    show p = "The name is " + p.Name

f : (a : Showable, m : MonadTerminal) => a -> m ()

    x => print $ "Show: " + show x

```