friends<-c("Jack","Jill")
     phones<-c(5554321,5551234)
     cat(friends[1],phones[1],"\n")
     cat(friends[2],phones[2],"\n")