Listy krotek z tym samym dniem i miesiącem

//Wyświetl z listy osób (int, (dz,m,r),str) te, które urodziły się w ten sam dzień tego samego miesiąca
let osoba1 = (1,(10,10,1900),"1")
let osoba2 = (2,(20,20,1900),"2")
let osoba3 = (3,(10,10,1900),"3")
let osoba4 = (4,(20,20,1900),"4")
let osoba5 = (5,(50,50,1900),"5")
let osoba6 = (6,(10,10,1900),"6")
let osobaList  = [osoba1;osoba2;osoba3;osoba4;osoba5;osoba6]

let porownajDiR (t1:(int*(int*int*int)*string), t2:(int*(int*int*int)*string)) =
    match t1,t2 with
    | (_,(d1,m1,_),_),(_,(d2,m2,_),_) -> if d1 = d2 && m1 = m2 then true else false

let rec znajdzTeSameDiR (lista:(int*(int*int*int)*string) list): (int*(int*int*int)*string) list list =
    match lista with
    | [] -> []
    | h::t -> (List.filter (fun badanaKrotka -> porownajDiR (h,badanaKrotka)) lista)::znajdzTeSameDiR (t)