entry[name_String, number_String] :=
    phonerecord[name, number]                  (* constructor *)

number[phonerecord[name_, number_]] := number  (* selector *)

name[phonerecord[name_, number_]] := name      (* selector *)
