mode(hiv(person)).

type(person,[a,b]).