type Shape =
    Point | Circle Radius | Rectangle Width Height

type Shape =
    Point | Circle Radius | Rectangle Width Height

type alias Radius = Float
type alias Width = Float
type alias Height = Float

type Shape =
    Point | Circle Radius | Rectangle Width Height

type alias Radius = Float
type alias Width = Float
type alias Height = Float

type Shape =
    Point | Circle Float | Rectangle Float Float

type Shape =
    Point | Circle Radius | Rectangle Width Height

type alias Radius = Float
type alias Width = Float
type alias Height = Float

type Shape =
    Point | Circle Float | Rectangle Float Float

myRect = Rectangle 10 20

bigCircle = Circle 420000

drawAt (x, y) shape =
    case shape of
        Point ->
            ...
        Circle radius ->
            ...
        Rectangle width height ->
            ...

myDrawing1 = drawAt (5, 7) (Circle 10)
myDrawing2 = drawAt (10, 5) myRect

tombstone =

        (Rectangle 50 50)

tombstone =
    Union
        (Rectangle 50 50)
        (Circle 25)
        

tombstone =
    Union
        (Rectangle 50 50)
        (Circle 25)
        (0, 25)
        -- the circle is 
        -- shifted by 25
        -- vertically

type Shape
    = Point 
    | Circle Radius
    | Rectangle Width Height 
    | Union Shape Shape Shift

type alias Shift = 
    (Float, Float)

Title

NumberOfElements 3

Title

New

Title

NumberOfElements 3

type StaticText 
    = Title
    | NumberOfElements Int
    | New

renderEnglish text =
    case text of
        Title ->
            "Todo list"

        NumberOfElements n ->
            toString n ++ " elements"

        New ->
            "New"

renderEnglish text =
    case text of
        Title ->
            "Todo list"

        NumberOfElements n ->
            case n of
                0 ->
                    "You have nothing to do!"

                1 ->
                    "One more thing to do!"

                _ -> --default case
                    toString n ++ " elements"

        New ->
            "New"

renderFrench text =
    case text of
        Title ->
            "À faire !"

        NumberOfElements n ->
            case n of
                0 ->
                    "Tu n'as rien à faire !"

                1 ->
                    "Une seule chose à faire !"

                _ -> --default case
                    toString n ++ " élements"

        New ->
            "Nouveau"