type samochod = {marka : string;  rocznik : int;  pojemnosc : float}
type osoba = {imie: string; urodzony: int; adres: string }
type rej = {pojazd: samochod; posiadacz: osoba }

(* funkcja sprawdzajaca czy pojazd jest małolitrażowy *)
let malolitrazowy(x:samochod) = x.pojemnosc < 900.0;

(* funkcja sprawdzająca czy 1 kierowca jest starszy od 2 *)
let starszy(k1:osoba, k2:osoba) = k1.urodzony < k2.urodzony

(* funkcja sprawdzajaca czy samochod s1 ma wieksza pojemnosc od s2 *)
let wiekszaPojemnosc (s1:rej, s2:rej) =
    s1.pojazd.pojemnosc > s2.pojazd.pojemnosc;

(* main *)
let main =
    let siena = { marka = "FIAT"; rocznik = 1997; pojemnosc = 1586.0}
    let maluch = { marka = "FIAT"; rocznik = 1987; pojemnosc = 648.0}
    printfn "1: %A" (malolitrazowy maluch)

    let kier1 = {imie = "Adam"; adres = "Rzeszow"; urodzony = 1960 };
    let kier2 = {imie = "Olek"; adres = "Jaslo"; urodzony = 1986 };
    printfn "2: kier1 starszy od kier2?: %A" (starszy (kier1, kier2))

    let sam1:rej = {pojazd = siena; posiadacz = kier1 };
    let sam2:rej = {pojazd = maluch; posiadacz = kier2 };
    printfn "3: sam1 pojemnosc > sam2 pojemnosc?: %A" (wiekszaPojemnosc (sam1, sam2))

    printfn "3.1: rocznik pojazdu sam1: %A" sam1.pojazd.rocznik;
    0