RE:[Haskell-cafe] A function using List and Tuple