data Tvar = Bod Double Double|Kruh Double Double Int|Kontejner [Tvar] deriving(Show)

type Jmeno = String
type Rocnik = Int
data Pohlavi = Muz | Zena
data Rodina = Rodina Jmeno Rocnik Pohlavi [Rodina]

malaRodina:: Rodina
malaRodina =
    Rodina "Jan" 1945 Muz
    [
        Rodina "Jiri" 1965 Muz [],
        Rodina "Dana" 1968 Zena
        [
            Rodina "Jan" 1988 Muz[],
            Rodina "Marta" 1955 Zena []
        ]
    ]

pocetOsob::Rodina->Int
pocetOsob (Rodina jm roc pohl rest) = 1+zbRod(rest)
        where
            zbRod []=0
            zbRod(x:xs)=(pocetOsob x) + (zbRod xs)

starsi::Int->Rodina->Int
starsi narozenPo (Rodina jm roc pohl xs)
    |roc > narozenPo =1 +zbRod narozenPo (xs)
    |otherwise=zbRod narozenPo (xs)
        where
            zbRod _ []=0
            zbRod naroPo (x:xs)=(starsi naroPo x) + (zbRod naroPo xs)