[Haskell-cafe] A function using List and Tuple