compareLastNames name1 name2 =
  if lastNameCompare == EQ
    then firstNameCompare
    else lastNameCompare
  where
    lastName1 = snd name1
    lastName2 = snd name2
    firstName1 = fst name1
    firstName2 = fst name2
    lastNameCompare = compare lastName1 lastName2
    firstNameCompare = compare firstName1 firstName2

sfOffice :: ([Char], [Char]) -> [Char]
sfOffice name =