length2' [] n = n
length2' (x:xs) n = length2' xs (n + 1)
length2 ls = length2' ls 0


greet [] = ""
greet ((name, age):people) =
  "Hello " ++ name ++ (show age) ++ "\n"++ (greet people)