type ksiazka = {tytul: string; autor: string; rok_wydania: int; cena: float}

let k1: ksiazka = {tytul = "Black Out"; autor = "Roman Dmowski";
                   rok_wydania = 1996; cena = 19.99}
let k2: ksiazka = {tytul = "Faceci w bieli"; autor = "Jan Padarewski";
                   rok_wydania = 1990; cena = 39.99}
let k3: ksiazka = {tytul = "Listopad"; autor = "Erich von Danken";
                   rok_wydania = 2004; cena = 29.99}

let zmianaCeny (k: ksiazka) (cena: float) =
    if cena > k.cena then
                 {tytul = k.tytul; autor = k.autor;
                  rok_wydania = k.rok_wydania; cena = cena}
    else {tytul = k.tytul; autor = k.autor;
          rok_wydania = k.rok_wydania; cena = k.cena}