let rec extractInterested p r =
    match (p, r) with
    |(_, []) -> []
    |(p', (name,(no,by,ths))::r')